Public DB As DAO.Database
Public RS As DAO.Recordset
 
Public Sub dbstart()
  Set DB = Workspaces(0).OpenDatabase(Replace(App.Path & "\Bauvorlage.mdb", _
    "\\", "\"), False, False)
End Sub

Private Sub dataload()
 
Dim i As Integer
 
Set RS = DB.OpenRecordset("Select * From Techniker", dbOpenDynaset)
RS.MoveLast
RS.MoveFirst
cboTechniker.Clear
 
  For i = 0 To RS.RecordCount - 1
    cboTechniker.AddItem RS("Name")
    RS.MoveNext
  Next i
 
cboTechniker.ListIndex = 0
cboTechniker.Text = ""

Private Sub Command1_Click()
  If Text2.Text = "" Then
    Exit Sub
  End If
 
  Data1.Recordset.AddNew
  Data1.Recordset.Fields("Speicher") = Text2.Text
  Data1.Recordset.Update
 
End Sub