FILL GRIDVIEW IN VB.NET

    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVERNAME\SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
 
    Public Function selectds(ByVal str As String) As DataSet
        Dim ds As DataSet = New DataSet()
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        da.Fill(ds)
        con.Close()
        Return ds
    End Function
//
    Public Sub fill()
        Dim s As String = "select * from TABLE"
        ds = c1.selectds(s)
        GridView1.DataSource = ds
        GridView1.DataBind()
        SecondGridBind()
    End Sub

PAGE LOAD EVENT IN VB.NET

Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Page.IsPostBack Then
        Else
            fill()
            filldropdown()
            MsgBox("Welcome")
        End If
    End Sub

HOW SET DATABASE CONNECTION IN VB.NET

  Dim con As SqlConnection = New SqlConnection("Data Source=SERVERNAME\SQLEXPRESS;Initial Catalog=DATABASENAEM;Integrated Security=True")

CLEARE FUNCATION IN VB.NET

  Public Sub clr()
        txtNOPFirstGo.Text = ""    
        ddlProduct.SelectedIndex = 0
     
    End Sub

.vb class for transaction sql

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Data.SqlClient
Public Class clsConnection
    Public Sub New()
        '
        ' TODO: Add constructor logic here
        '
    End Sub
    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=servernaem\SQLEXPRESS;Initial Catalog=dbname  

    Public Function selectds(ByVal str As String) As DataSet
        Dim ds As DataSet = New DataSet()
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        da.Fill(ds)
        con.Close()
        Return ds
    End Function

End Class

WORKING WITH VB.NET FULL EXAMPLE

Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Partial Public Class Default4
    Inherits System.Web.UI.Page

  
    Dim con As SqlConnection = New SqlConnection("Data Source=EV001F294E678D\SQLEXPRESS;Initial Catalog=oee;Integrated Security=True")
    Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Page.IsPostBack Then
        Else
            fill()
        End If
    End Sub
    Public Sub fill()
       
    End Sub

WORKING WITH VB.NET LOGIN EXAMPLE

Login Form.vb
Imports SystemImports System.CollectionsImports System.ConfigurationImports System.DataImports System.LinqImports System.WebImports System.Web.SecurityImports System.Web.UIImports System.Web.UI.HtmlControlsImports System.Web.UI.WebControlsImports System.Web.UI.WebControls.WebPartsImports System.Xml.LinqImports System.Data.SqlClientPartial




Public Class Default2Inherits System.Web.UI.PageDim c1 As clsConnection = New clsConnection()Dim ds As DataSet = New DataSet()Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)End Sub
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs)If txtLoginId.Text <> "" And txtPassword.Text <> "" ThenDim getAdmin As String = "select * from oee_LoginTable where signum_id='" + txtLoginId.Text + "' and Password='" + txtPassword.Text + "'"ds = c1.selectds(getAdmin)
If ds.Tables(0).Rows.Count > 0 Then
Dim utype As String = ds.Tables(0).Rows(0)("UserType").ToString()If utype = "1" ThenSession(
Response.Redirect(
"signumid") = ds.Tables(0).Rows(0)("signum_id").ToString()"User_Home.aspx")ElseEnd IfElse
End Ifclr()
ElseEnd IfEnd Sub
Response.Redirect(
Protected Sub btnBack_Click(ByVal sender As Object, ByVal e As EventArgs)"../Default.aspx")End Sub
txtLoginId.Text = Public Sub clr()""txtPassword.Text = ""
EndEnd Sub Class