Dim rs1 As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
 
If DESpio.rstblFirmen.State = 0 Then DESpio.rstblFirmen.Open
    If DESpio.rstblFirmennamen.State = 0 Then DESpio.rstblFirmennamen.Open
    '--- Kürzel zuweisen
    Set rs1 = DESpio.rstblFirmen
    Set rs2 = DESpio.rstblFirmennamen
 
    Select Case mvarMode
        Case ADDED
            rs1.AddNew
            rs2.AddNew
            ...
           rs1.Fields("Firmenname")= "Hallo"
 
        end case
  rs1.Update
 myCallingForm.nFirmenNr = rs1!FIRM_ID