Public Sub LadeWachbuch(ByVal sDatum As Date, ByVal sDienst As String)
   Dim sql As String
   Dim n As Long, i As Long
   Set DB = DBEngine.OpenDatabase(DBName, False, False, ";pwd=xxx")
  sql = "Select Count(*) As Anzahl From Wachbuch Where Datum = #" & Format( _
    sDatum, "m-d-yy") & "# AND Dienst = '" + sDienst + "' "
   Set rs=DBEngine.OpenRecordSet(sql,dbOpenSnapshot)
   n = Rs!Anzahl
   If n = 0 Then Exit Sub
   sql = "Select * From Wachbuch Where Datum = #" & Format(sDatum, "m-d-yy") & _
     "# AND Dienst = '" + sDienst + "' Order by Name"
   Set rs = DB.OpenRecordset(sql, dbOpenDynaset)
   frmwb.lstDienst.Clear
   For i = 1 To n
      With frmwb
        .lstDienst.AddItem rs!Name
        If Not IsNull(rs!x) Then
           .UserControl11.Row = rs!Y
           .UserControl11.Column = rs!x
           .UserControl11.Value = rs!Wert
        End If
      End With
      rs.MoveNext
   Next
   DB.Close
End Sub