Se usi System.Data.OleDb prova con
Dim connection As New OleDbConnection(connectionString)
connection.Open()
Dim schemaTable As DataTable = connection.GetSchema("Tables")
ora su schemaTable hai la lista delle tabelle
(devi filtrare con TABLE_TYPE="TABLE")
per avere nomi dei campi e tipo campi, una volta fatta la connessione:
Dim tableName As String = "NomeTabella"
Dim restrictions() As String = {Nothing, Nothing, tableName, Nothing}
Dim schemaTable As DataTable = connection.GetSchema("Columns", restrictions)
Poi usi i campi "COLUMN_NAME" e "DATA_TYPE" per capire la struttura
DATA_TYPE:
2 = SmallInt
3 = Integer
4 = Single
5 = Double
6 = Currency
7 = DateTime
11 = Boolean
17 = Byte
72 = GUID
130 = Text (Stringa)
131 = Decimal (Numero decimale)