Dim sql_cn As New SqlConnection
Dim sql_da As New SqlDataAdapter
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ls_sql As String = "Select * From hoja1"
sql_cn.ConnectionString = "Data Source=(local);initial catalog=estigma;user id=sa"
sql_cn.Open()
sql_da = New SqlDataAdapter(ls_sql, sql_cn)
sql_da.Fill(ds, "xxx")
DataGrid1.DataSource = ds.Tables("xxx")
End Sub