Object doesn't support this property or method: 'RS.EOF'

Quote :

' 1) See if the email address exists for this member
Sql = ""
Sql = Sql & "Select * From AddressBook Where Memberid=" & cMemberId & " AND Email='" & cEmail & "'"

Set Connection = New clsDBConnection1
Connection.Open
rs = Connection.Execute(SQL)
IF rs.EOF Then <-- ERROR IS ON THIS LINE
' 2) If Not - Add the contact information (FirstName LastName)
Sql = ""
Sql = Sql & "Insert INTO Addressbook ("
Sql = Sql & "MemberId, FirstName, LastName, Email) VALUES ("
Sql = Sql & cMemberId & "," & CCToSQL(cFirst,"String") & "," & CCToSQL(cLast,"String") & "," & CCToSQL(cEmail,"String") & " )"
rs = Connection.Execute(SQL)
End If
rs = NULL
Connection.Close
Set Connection = Nothing