VB.NET连接SQL_Server实例

Imports System.Data.SqlClient
Public Class Form1
    REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User )
    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 
        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