Private Sub XlsImportMA(fileName As String)
Dim resMA As Integer, n As Integer
Dim cnnMA As ADODB.Connection
Dim rstMA As ADODB.Recordset
Dim rsdbMA As ADODB.Recordset
    'On Error GoTo FEHLER:
 
    DoCmd.TransferSpreadsheet acImport, , "tempStundenerfassung", fileName, True
 
		'Tabelle in der SQL Datenbank öffnen
    Set cnnMA = CurrentProject.Connection
    Set rsdbMA = New ADODB.Recordset
    rsdbMA.Open "SELECT * FROM cpsStundenerfassung", cnnMA, adOpenKeyset, _
      adLockOptimistic
 
		'Hilfstabelle in Access öffen, sehen ob was drinn ist
    Set rstMA = New ADODB.Recordset
    rstMA.Open "Select * From tempStundenerfassung", cnnMA, adOpenKeyset, _
      adLockOptimistic
    n = rstMA.RecordCount
    If n <> -1 Then
        resMA = SysCmd(acSysCmdInitMeter, "Einlesen", n)
    Else
        resMA = SysCmd(acSysCmdInitMeter, "Einlesen", 100)
    End If
 
    n = 1
    With rsdbMA
        While Not rstMA.EOF
            .AddNew
            !Datum_Tag = rst![Datum Tag]  'Auf dieser zeile steht die 
            ' Farbmarkierung im Debugger!
            !Datum_Monat = rst![Datum Monat]
            !Datum_Jahr = rst![Datum Jahr]
            !NachName = rst![Name]
	    !LohnstdOhneFgstPause5 = rst![L-Std# ohne Fgst#Pause vor Komma 5]
            !LohnminOhneFgstPause5 = rst![L-Std# ohne Fgst#Pause nach Komma 5]
            !FahrgastzeitStunden5 = rst![Fahrgastzeit vor Komma 5]
 
Hier stehen eine ganze Reihe von Feldzuweisungen
Jetzt geht es mit der Protedur weiter bis zum Ende
 
	.Update
            rst.Delete
            rst.MoveFirst
 
            res = SysCmd(acSysCmdUpdateMeter, n)
            n = n + 1
        Wend
    End With
 
		'Schließen der Cursor und freigabe der Ressourcen
    rstMA.Close
    rsdbMA.Close
 
    resMA = SysCmd(acSysCmdRemoveMeter)
    Exit Sub
 
End Sub