volendo anche con ado usando la libreria adox


codice:
Dim tb As New ADOX.Table
Dim db As New ADOX.Catalog
Dim Cn As New ADODB.Connection



Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = "

                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With

End Sub

Private Sub Form_Load()
    Call connetti
    db.ActiveConnection = Cn
    tb.Name = "Prova"
    tb.Columns.Append "ID"
    tb.Columns.Append "Nome"
    db.Tables.Append tb
End Sub