Dim ds As New DataSet
ds = DataSetObject
Dim dt1,dt2,dt3 As DataTable
dt1 = ds.Tables(0) '*** Or Tables("table-name") ***'
dt2 = ds.Tables(1) '*** Or Tables("table-name") ***'
dt3 = ds.Tables(2) '*** Or Tables("table-name") ***'
Sample
Dim objConn As New System.Data.OleDb.OleDbConnection
Dim objCmd As New System.Data.OleDb.OleDbCommand
Dim dtAdapter As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim dt As DataTable
Dim strConnString,strSQL As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
strSQL = "SELECT * FROM customer"
objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd
dtAdapter.Fill(ds)
dt = ds.Tables(0)
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
ASP.NET System.Data.OleDb & DataSet() - Access Database