Public DATENSATZ() as Variant
 
Public Sub Daten_lesen()
    Dim DB As Database
    Dim TB As Recordset
    Dim SQL As String
 
    Set DB = OpenDatabase(App.Path & "\Datenbank.mdb", False, False)
        SQL = "SELECT * FROM TAB1"
        Set TB = DB.OpenRecordset(SQL, dbOpenSnapshot)
            If Not (TB.BOF And TB.EOF) Then
                TB.MoveLast
                anzahl_DATENSATZ = TB.RecordCount
                TB.MoveFirst
                DATENSATZ = TB.GetRows(anzahl_DATENSATZ)
            Else
                anzahl_DATENSATZ = 0
            End If
       TB.Close
    DB.Close
End Sub

Public Sub Wert_schreiben(ID_Datensatz As Variant, wert As Integer)
    Dim DB As Database
    Dim TB As Recordset
    Dim SQL As String    
 
    Set DB = OpenDatabase(App.Path & "\Datenbank.mdb", False, False)
        SQL = "SELECT * FROM TAB1 WHERE ID = " & ID_Datensatz  'ID_Datensatz 
        ' ist eine eindeutige Feldbezeichnungen im Datensatz
        Set TB = DB.OpenRecordset(SQL, dbOpenDynaset)
            TB.Edit
                TB!Datenwert = wert                            'Datenwert ist 
                ' eine der Feldbezeichnungen im Datensatz
            TB.Update
        TB.Close
    DB.Close
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!