Dim Db as Database

Private Sub Form_Load()
Dim Rs as recordset
Set Db=CurrentDb()

set rs=db.openrecordset("nometabella")
End Sub