Dim db As New Connection Dim da As New System.Data.OleDb.OleDbDataAdapter Dim tablesSchema As ADODB.Recordset Try db.CursorLocation = CursorLocationEnum.adUseClient db.Open("stuff") tablesSchema = db.OpenSchema(SchemaEnum.adSchemaTables) Dim myTable As New DataTable da.Fill(myTable, tablesSchema) MyDataViewerForm.LoadSimpleDataGrid(myTable) Catch ex As Exception MsgBox(ex.ToString) Finally db.Close() da.Dispose() da = Nothing db = Nothing End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)