Private Sub Load_Datei()
    eRs_Close
    sSQL = "SELECT * FROM tblmwst WHERE mwuser = '" & sUserName & "'"
    eRs.CursorLocation = adUseClient
    eRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    eRsOpen = True
 
    Do While Not aRs.EOF
       With eRs
         .AddNew
         !mwuser = sUserName
         !mwrecnr = aRs!RecNr
         !mwhinreise = ""
         If Not IsNull(aRs!RecHinreise) Then
            !mwhinreise = aRs!RecHinreise
         End If
         !mwBeginn = aRs!RecStartDat
         !mwEnde = aRs!RecEndDat
         !mwrechdatum = aRs!RecRechDatum
         !mwstornodatum = ""
         If IsDate(aRs!RecStornoDatum) Then
            !mwstornodatum = aRs!RecStornoDatum
         End If
         !mwgesamtpreis = aRs!RecGesamtpreis
         !mwbasis0 = aRs!RecBasis0
         !mwbasis4 = aRs!RecBasis4
         !mwsatz1 = aRs!RecSatz1
         !mwmwst1 = aRs!RecMWSt1
         !mwsatz2 = aRs!RecSatz2
         !mwmwst2 = aRs!RecMWSt2
         !mwsatz3 = aRs!RecSatz3
         !mwmwst3 = aRs!RecMWSt3
         .Update
       End With
       aRs.MoveNext
    Loop
End Sub