Dim cnn As New OleDb.OleDbConnection()
Dim cnstr As String = "Provider = SQLOLEDB.1;Password=mvb1234;Persist Security Info=True;User ID=sa;Initial Catalog=tfmsdb;Data Source=mvb"
Dim dc As OleDb.OleDbDataAdapter
Dim ds As New DataSet()
Dim dr As DataRow
Dim mytable As DataTable
cnn.ConnectionString = cnstr
cnn.Open()
dc = New OleDb.OleDbDataAdapter("select top 20 * from person", cnstr)
dc.Fill(ds, "person")
mytable = ds.Tables("person")
DataGrid1.DataSource = ds.Tables("person")
DataGrid1.DataBind()
DataGrid1.DataMember = mytable.TableName