Public Type KalibrierDatenSatz
    SW  As String * 9           '{ Schaltwerksbezeichnung }
    USp As String * 5           '{ Spannung Spulen-Netzgerät [V] }
    ISp As String * 5           '{ Strom Spulen-Netzgerät [A] }
    UHs As String * 5           '{ Spannung Hochspannungs-Netzgerät [V] }
    IHs As String * 5           '{ Strom Hochspannungs-Netzgerät [mA] }
    Pol As String * 1           '{ Polarität Hochspannungs-Netzgerät }
    RV  As String * 6             '{ Röhrenvolumen [dm^3] }
    f0 As String * 6              '{ konstanter Wert }
    f1 As String * 6              '{ Faktor für linearen Anteil }
    f2 As String * 6              '{ Faktor für quadratischen Anteil }
    f3 As String * 6              '{ Faktor für kubischen Anteil }
    fp As String * 6              '{ Faktor für Druckwert (Umrechnung Torr 
    ' -> mbar) }
    Bem As String * 21          '{ Bemerkungen }
    Res As String * 13          '{ Reserve: Achtung, die Gesamtlänge des 
    ' Record's muß immer gleich 100 Bytes bleiben !!! }
End Type

        Dim f As Long
        Dim Satz As KalibrierDatenSatz
        Dim i As Long
        f = FreeFile
        Open Datei For Binary As #f Len = Len(Satz)
            While Not EOF(f)
                Get #f, , Satz
                rs.AddNew
                i = i + 1
                rs.Fields("nr") = i
                rs.Fields("sw") = pasString2vbString(Satz.SW)
                Debug.Print "sw:"; pasString2vbString(Satz.SW)
                rs.Fields("usp") = pasString2vbString(Satz.USp)
                Debug.Print pasString2vbString(Satz.USp)
                rs.Fields("isp") = pasString2vbString(Satz.ISp)
                Debug.Print pasString2vbString(Satz.ISp)
                rs.Fields("uhs") = pasString2vbString(Satz.UHs)
                Debug.Print pasString2vbString(Satz.UHs)
                rs.Fields("ihs") = pasString2vbString(Satz.IHs)
                Debug.Print pasString2vbString(Satz.IHs)
                rs.Fields("pol") = Satz.Pol
                Debug.Print Satz.Pol
                'rs.Fields("rv") = Satz.RV
                Debug.Print Satz.RV
                'rs.Fields("f0") = Satz.f0
                Debug.Print "f0:"; Satz.f0
                'rs.Fields("f1") = Satz.f1
                Debug.Print "f1:"; Satz.f1
                'rs.Fields("f2") = Satz.f2
                Debug.Print "f2:"; Satz.f2
                'rs.Fields("f3") = Satz.f3
                Debug.Print "f3:"; Satz.f3
                'rs.Fields("fp") = Satz.fp
                Debug.Print "fp:"; Satz.fp
                rs.Fields("bem") = pasString2vbString(Satz.Bem)
                Debug.Print pasString2vbString(Satz.Bem)
                rs.Fields("res") = pasString2vbString(Satz.Res)
                Debug.Print pasString2vbString(Satz.Res)
                rs.Update
            Wend
        Close #f
        rs.Close
        cn.Close
        Set rs = Nothing
        MsgBox "Import beendet", vbInformation, "Hinweis"