Public Function readStringTest()
 
Dim tab1 As DAO.Recordset
Dim tab2 As DAO.Recordset
Dim ktab1 As Double
Dim ktab2 As Double
Dim ErsterWert As Double
Dim ZweiterWert As Double
Dim IdNummer As String
 
Set tab1 = CurrentDb.OpenRecordset("ID", dbOpenDynaset)
Set tab2 = CurrentDb.OpenRecordset("Text", dbOpenDynaset)
Open "C:Endergebnis.htm" For Output As #1
 
ErsterWert = 99999999
ZweiterWert = 0
tab1.MoveFirst
Do Until tab1.NoMatch
    ktab2 = tab1!IdNummer         ' IdNummer heisst das Datensatzfeld in "ID"
    tab2.FindFirst ktab2
    ZweiterWert = tab2!Suchtext    ' Suchtext heisst Datensatzfeld in "Text", _
      ID ist ebenfalls vorhanden        
 
        If ErsterWert <> 99999999 Then   
            Print #1, ZweiterWert - ErsterWert
        End If
    ErsterWert = ZweiterWert
    ZweiterWert = 0
    tab1.MoveNext
Loop
 
On Error Resume Next
Close #1
tab1.Close
tab2.Close
Set tab1 = Nothing
Set tab2 = Nothing
 
End Function