showing an sql query result in a textbox

[salvelinus]

Dim strSQL as String
Dim db as DAO.Database
Dim rs as DAO.Recordset
 
strSQL = "SELECT * FROM tblFoo WHERE fldID = 1"
Set db = CurrentDB
Set rs = db.OpenRecordset(strSQL)
If rs.Recordcount > 0 Then
   rs.MoveFirst
   txtFoo.Text = rs!fldID
End If