Option Explicit
 
Private oConn As ADODB.Connection
Private oRST As ADODB.Recordset
 
Private Sub Form_Load()
 
   ' ADO Connection
   Set oConn = New ADODB.Connection
   With oConn
      .CursorLocation = adUseClient
      .Mode = adModeShareDenyNone
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Properties("Data Source") = App.Path & "\Demo.mdb"
      .Properties("Persist Security Info") = False
      .Open
   End With
 
   ' ADO RecordSet
   Set oRST = oConn.OpenSchema(adSchemaTables)
   With oRST
      If .RecordCount > 0 Then
         .MoveFirst
         Do While Not .EOF
            ' Name und Datum ausgeben
            Debug.Print .Fields("TABLE_NAME") & " " & .Fields("DATE_CREATED")
            .MoveNext
         Loop
      End If
   End With
 
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control