Dim dbmain As Database
Dim rstData As Recordset
Dim intCount As Integer
Dim strSQL As String
 
Set dbmain = OpenDatabase("C:\Temp\database.mdb")
strSQL = "SELECT * FROM table WHERE ID=1"
Set rstData = dbmain.OpenRecordset(strSQL)
 
For intCount = 1 To 7
    MsgBox rstData.Fields("zaehler" & intCount).Value
Next intCount
 
rstData.Close
Set rstData = Nothing