what is wrong ?? no findfirst only find !!!!

[Edilson]

Dim WithEvents adoBedRS As Recordset
Private Sub Form_Load()
Dim SQL As String
Set adoBedRS = New Recordset
adoBedRS.Open "select BEDname,BEDSIZE from BED", Conn1, dbOpenDynaset, adLockOptimistic

adoBedRS.findfirst "bed=1" ' this won't work why ??

End Sub

[Edilson]

how do i do to move the cursor to the record i've just found ??

[DrewDog_21]

You are using ADO, and ADO does not have a .FindFirst
method. To find the first record that matches the criteria,
move to the first record and then execute the .Find method,
like this:

adoBedRS.MoveFirst 
adoBedRS.Find "bed = 1"
If adoBedRS.EOF Then
    MsgBox "Record Not Found"
Else
    MsgBox "Record Found"
End If

For your second question, when you find a record, the cursor
is already pointing to it.