Public DB As Database



Private Sub Main()

     

    On Error Resume Next 

    Set DB = DBEngine.OpenDatabase("Pfad_Namen_der_Datenbank", False, False,";pwd=passwort")

    If Err.Number > 0 Then

         MsgBox "Es liegt ein Fehler vor, die Datenbank konnte nicht geöffnet werden!", _

                        vbCritical, "Datenbankfehler!"

         Exit sub

    End If

    Form1.Show

End Sub

Private RS1 As Recordset
 
Private Sub Form_Activate()
     Set Rs1 = DB.OpenRecordset("Material1", dbOpenDynaset)
     If Not Rs1.Eof Then
          Text1.Text = Rs.Fields(0).Value
          Text2.Text = Rs.Fields(1).Value
          Text3.Text = Rs.Fields(2).Value
          Text4.Text = Rs.Fields(3).Value
     End If
End Sub