in Module :
Imports System.Data
Imports System.Data.SqlClient
 
Module Koneksi
    Public conn As SqlConnection
    Public Function GetConnect()
 
        conn = New SqlConnection("server = YourServerName;database = YourDatabaseName;Trusted_Connection = yes")
        Return conn
    End Function
End Module

Private Sub Show_Data()
        Dim conn As SqlConnection
        Dim cmdStudent As New SqlCommand
        Dim daStudent As New SqlDataAdapter
        Dim dsStudent As New DataSet
        Dim dtStudent As New DataTable
 
        ' Binding Data from Table Student
        conn = GetConnect()
            Try
                cmdStudent = conn.CreateCommand
                cmdStudent.CommandText = "SELECT * FROM Student"
                daStudent.SelectCommand = cmdStudent
                daStudent.Fill(dsStudent, "Student")
                dgStudent.DataSource = dsStudent
                dgStudent.DataMember = "Student"
                dgStudent.ReadOnly = True
            Catch ex As Exception
                MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Connection Error !!")
        End Try  
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Show_Data()
End Sub