Private Sub dgBewohner_dblClick()
 
    Monat.Vorname.Caption = cBewohner.nBewohner.Fields("Vorname")
    Monat.Nachname.Caption = cBewohner.nBewohner.Fields("Name")
 
    Rechnung.Show
 
 
End Sub
 
Private Sub Form_Load()
 
 
    cBewohner.TabelleOeffnen ("SELECT DISTINCT Bewohner.Vorname, Bewohner.Name," & _
      "Bewohner.Haus FROM ((Bewohner INNER JOIN Ersterfassung ON (Bewohner.Name" & _
      "= Ersterfassung.Name) AND (Bewohner.Vorname = Ersterfassung.Vorname))" & _
      "INNER JOIN Ausgang ON Ersterfassung.Nummer = Ausgang.Barcode) INNER JOIN" & _
      "Kunden ON Bewohner.Haus = Kunden.Kunden_Nr where Month(Ausgang.Datum) =" & _
      "'" & txtMonat.Text & "';")
 
    Set Adodc1.Recordset = cBewohner.RS
    dgBewohner.DataMember = "Primary"
    Set dgBewohner.DataSource = cBewohner