Visual Basic - Búsqueda

Hola muchachos que tal!
Estoy tratando de hacer una simple búsqueda de datos pero nada que me quiere funcionar; seguramente hay algo que no estoy haciendo bien pero no veo el error. Les agradezco me echen una mano!. Les mando la rutina para que por fa la verifiquen:

Private Sub btnbuscar_Click()
Dim sql As String

nombre.Enabled = True
cedula.Enabled = True
ciudad.Enabled = True
blanquear
If cedula.Text = "" Then
MsgBox "Debe introducir el número de cédula a buscar", vbInformation
cedula.SetFocus
Else
If cedula.Text <> "" Then
datos.MoveFirst
If datos.NoMatch = True Then
MsgBox "No hay nada similar al dato ingresado. Inténtalo con otra cédula", vbInformation
datos.MoveFirst
btnincluir.Enabled = False
btnmodificar.Enabled = False
btneliminar.Enabled = False
btnbuscar.Enabled = True
btnaceptar.Enabled = False
btncancelar.Enabled = True
btnsalir.Enabled = True
Else
If datos.BOF And datos.EOF Then
MsgBox "la base de datos está vacía", vbInformation
Else
If datos.NoMatch = False Then
sql = "select * from gentio where cedula = '" + cedula + "'"
datos.OpenRecordset
nombre = datos.Fields("nombre")
ciudad = datos.Fields("ciudad")

btnincluir.Enabled = True
btnmodificar.Enabled = True
btneliminar.Enabled = True
btnbuscar.Enabled = True
btnaceptar.Enabled = False
btncancelar.Enabled = False
btnsalir.Enabled = True
End If
End If
End If
End If
End If
End Sub

Mari, proba con esto, es con una base de access, pero cambiando el tipo de conexion, deberia funcionarte lo mismo, por lo que veo, en ningun momento asignas la string sql a la apertura del recordset.
Se me complica ver si tenes otro error porque el programa aparece sin indentar y es imposible seguirlo.
Espero te sirva el ejemplo, es parte de un programa mio.
Salud !


Public myAccessCnx As ADODB.Connection
Public myAccessRst As ADODB.Recordset

Set myAccessCnx = New ADODB.Connection
Set myAccessRst = New ADODB.Recordset

myAccessCnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=;Data Source= Archivo.mdb"
myAccessRst.Open "SELECT * FROM Empleados", myAccessCnx

If datos.BOF And datos.EOF Then

¿No te parece que en lugar de AND. en la anterior sentencia, debería ir OR?

Un saludo.