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
       eRs.AddNew
       eRs!mwuser = sUserName
       eRs!mwrecnr = aRs!RecNr
       eRs!mwhinreise = ""
       If Not IsNull(aRs!RecHinreise) Then
          eRs!mwhinreise = aRs!RecHinreise
       End If
       eRs!mwBeginn = aRs!RecStartDat
       eRs!mwEnde = aRs!RecEndDat
       eRs!mwrechdatum = aRs!RecRechDatum
       eRs!mwstornodatum = ""
       If IsDate(aRs!RecStornoDatum) Then
          eRs!mwstornodatum = aRs!RecStornoDatum
       End
       eRs!mwgesamtpreis = aRs!RecGesamtpreis
       eRs!mwbasis0 = aRs!RecBasis0
       eRs!mwbasis4 = aRs!RecBasis4
       eRs!mwsatz1 = aRs!RecSatz1
       eRs!mwmwst1 = aRs!RecMWSt1
       eRs!mwsatz2 = aRs!RecSatz2
       eRs!mwmwst2 = aRs!RecMWSt2
       eRs!mwsatz3 = aRs!RecSatz3
       eRs!mwmwst3 = aRs!RecMWSt3
       eRs.Update
       aRs.MoveNext
    Loop
End Sub