Visual Basic - BUSQUEDA CON ADO

Hola a todos,

Estoy realizando un programa en vb 6.0, entonces haciendo una busqueda, por la cual utilizo un combobox y un textbox, en el combobox elijo el campo donde voy a realizar la busqueda y el textbox lo que quiero buscar; tengo 2 botones un que pone buscar y otro siguiente (para buscar el siguiente registro que coincida). Hasta aqui perfecto, las cuestiones son (hay varias):

- Cuando pongo algun dato que no existe, no me dice nada, aunque llegue al final de todos los registros.
- La otra cuestión es que cuando le doy al botón Siguiente y no hay mas registro que coincidan y supongo que llega al ultimo registro, no me dice nada tampoco.
Necesitaría que me dijeran que es lo que tengo mal puesto en los dos botones. Aqui expongo lo que he escrito.

Option Explicit
Dim buscar1 As String
Dim mensaje As String
Private Sub cmdBuscar_Click()

frmRULETA.Data1.Recordset.MoveFirst
If txtDatobuscar.Text = "" Or cmdElegirCampo.Text = "" Then
mensaje = MsgBox("Debe llenar todos los campos, vuelva a intentarlo.", vbOKOnly + vbCritical, "Dato incorrecto.")
Else
If Not frmRULETA.Data1.EOFAction Then
buscar1 = cmdElegirCampo & " Like '*" + txtDatobuscar + "*'"
frmRULETA.Data1.Recordset.FindFirst (buscar1)
Else
frmRULETA.Data1.Recordset.MoveFirst
MsgBox ("No hay ningún registro con los datos expuesto")

End If
End If

End Sub

Private Sub cmdSiguiente_Click()

If Not frmRULETA.Data1.EOFAction Then
buscar1 = cmdElegirCampo & " Like '*" + txtDatobuscar + "*'"
frmRULETA.Data1.Recordset.FindNext (buscar1)
Else
frmRULETA.Data1.Recordset.MoveFirst
MsgBox ("No hay mas registro con esos datos")
End If
End Sub

Desearia que me ayudarais a solucionar este tema.

Un saludo,

Pedrito

despues de cada busca pone

if frmRULETA.Data1.Recordset.eof=true then
msgbox "no existen datos"
end if