Public Sub ProjDaten(PRid, AGid)
 
Dim rsPR As DAO.Recordset ' Recordset der Projekte
 
Set rsPR = oDB.OpenRecordset("SELECT Proj_Nr, Projektbez, Projekttyp, MA_ID," & _
  "Abgeschlossen FROM tblProjekte WHERE ktk_ID =" & Val(AGid) & "AND prj_ID =" _
  & Val(PRid) & ";")
 
    txtPRNR.Text = rsPR.Fields("Proj_Nr")
    txtPRBEZ.Text = rsPR.Fields("Projektbez")
    txtPRTYP.Text = rsPR.Fields("Projekttyp")
        With txtPRZUG
        .Style = rsComboBox
        .AutoComplete = True
        Set .Recordset = oDB.OpenRecordset("SELECT MA_ID, MA_Name FROM" & _
          "tblMitarbeiter")
        .BoundColumn = 1
        .DisplayColumn = 2
        .Columns(1).Visible = False
        .Refresh
        End With
 
End Sub