Hey guys im designing a system to search a MS Access database and I just cant seem to get it working.

Dim key As String, str As String
Dim count, a As Integer
count = frmAdmin.Adodc1.Recordset.RecordCount
key = " "
key = InputBox("Enter the policy No whose details u want to know: ")
'For a = 1 To count
'If key = frmAdmin.Adodc1.Recordset.Fields(0) Then
'Call MsgBox("Client Exists", vbOKOnly + vbInformation, "Client Exists")
'Else
'Call MsgBox("client does not exist", vbOKOnly + vbInformation, "Client does not exist")
' End If
'Next a


'str = "select * from Client where [Policy Number]=" & key
'frmAdmin.Adodc1.Recordset.Open str
'frmAdmin.Adodc1.Recordset.Close
While Not (frmAdmin.Adodc1.Recordset.EOF) And found = False
If frmAdmin.Adodc1.Recordset.Fields(0) = key Then
Call MsgBox("record exists", vbOKOnly + vbInformation, "Record found")
found = True
Else
Call MsgBox("record does not exist", vbOKOnly + vbInformation, "record not found")
End If
frmAdmin.Adodc1.Recordset.MoveNext
Wend

thats the code Im currently using. as you can see Im using ADODC and I even tried using SQL to no avail...Please assist....