Dim connect As String = "dsn=a"
Dim myconn As OdbcConnection = New OdbcConnection(connect)
Dim mycomm As OdbcCommand = New OdbcCommand("select * from 1", myconn)
Dim custDA As OdbcDataAdapter = New OdbcDataAdapter()
custDA.SelectCommand = New OdbcCommand("SELECT * FROM 1", myconn)
Dim acb As OdbcCommandBuilder = New OdbcCommandBuilder(custDA)
myconn.Open()
Dim Ds11 As DataSet = New DataSet()
custDA.Fill(Ds11, "1")
DataGrid1.DataSource = Ds11
DataGrid1.DataMember = 1
myconn.Close()