Set Rs = Cn.Execute("SELECT hallo FROM tab2 WHERE id = '" & zahl & "'")

Dim str As String, zahl As Integer, rs as DAO.RecordSet
str = "SELECT `tbl`.*" & _
      " FROM `tbl`" & _
      " WHERE `tbl`.`id` = '" & CStr(zahl) & "'"
Set rs = db.OpenRecordset(str)
...
rs.Close
Set rs = Nothing

Don't , be