dim dbConn as new oledb.oledbconnection
dbconn.connectionstring = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = " & App.StartupPath & "\YourDatabaseFileName.mdb"
dbConn.open
dim DA as new Oledb.OledbDataAdapter("Select * from table1",dbConn)
dim ds as new dataset
DA.FillSchema(ds)
dim strArray as string()
ReDim Preserve strArray(ds.Table(0).Column.Count
For i as int =0 to ds.Table(0).Column.Count-1
strArray(i) = ds.Table(0).Column(0).Caption
next