Imports System.Data.sqlClient
Public Class Form1
    REM Public conn1 As sqlConnection = New sqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
    Dim cn As sqlConnection
    Dim da As sqlDataAdapter
    Dim ds As DataSet
    Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        Dim cnStr As String = "Data Source=(local);Initial Catalog=mydatabase1;Integrated Security=False;User ID=sa;[email protected];"
        cn = New sqlConnection(cnStr)
        da = New sqlDataAdapter("select * from mydatabase1.dbo.db_book",cn)
        ds = New DataSet()
        da.Fill(ds,"mydatabase1.dbo.db_book")
        DataGridView1.DataSource = ds.Tables("mydatabase1.dbo.db_book")
    End Sub
   
End Class