DIM SQL As String
Dim sFldName As String
 
SQL = "SELECT Count(*) As Anzahl From tblMessDaten Where mdKalidaten = " + CStr( _
  Wert)
Set Rs = DB.OpenRecordset(SQL, dbOpenDynaset)
 
sFldName = "kali" + CStr(Rs!Anzahl)
Rs.Close
 
Set Rs = DB.OpenRecordset(tblMessDaten, dbOpenDynaset)
With Rs
      .AddNew
      !mdKalidaten = 
      !mdDatensatzname = sFldName
      .UpDate
End With