[VB 6.0] Datenbank

Option Explicit
Dim adoConnection As ADODB.Connection
Dim adoRecordset As ADODB.Recordset
Dim adoCommand As ADODB.Command

Private Sub Form_Load()
Set adoConnection = New ADODB.Connection
With adoConnection
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    ' Jet-Provider
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    ' Pfad zur eigendlichen DB
    .Properties("Data Source") = App.Path & "\db1.mdb"
    ' Datenbankpasswort
    .Properties("Jet OLEDB:Database Password") = "test"
    ' Pfad zur System- und Securety-MDW
    .Properties("Jet OLEDB:System database") = App.Path & "\Secure.mdw"
    ' UserId für anzumeldenden User
    .Properties("User ID") = "testuser"
    ' Passwort des Users
    .Properties("Password") = "testpwd"
    .Open
End With

Set adoRecordset = New ADODB.Recordset
With adoRecordset
    .ActiveConnection = adoConnection
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT * FROM tbl_Test1"
    .Open
End With

Do While Not adoRecordset.EOF
    ' hier kann immer der Spalten name als Index benutzt werden.
    MsgBox adoRecordset.Fields("ID").Value
    adoRecordset.MoveNext
Loop
adoRecordset.Close
End Sub