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