I've tried this code:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim intResult As Integer
Dim strSQL As String
strSQL = "SELECT * FROM tblContactInfo WHERE tblContactInfo.FirstName = Michelle"
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'intResult = rs("RecordCount")
rs.Close
db.Close
|