Boton Buscar

[adripinto]

*YO ESTOY TRABAJANDO CON MYSQL Y VISUAL BASIC POR LO TANTO USO LA HERRAMIENTA ADO PARA LLAMAR LA BD..LO QUE ME OCURRE ES QUE CUANDO BUSCO Y NO TENGO REGISTRO ME DA UN ERROR..LO QUE QUIERO ES UNA INSTRUCCION Q FUNCIONE Y NO GENERE ERROR CUANDO NO TENGO REGISTROS...GRACIAS


Private Sub cmdBuscar_Click()
criterio = "codproveedor="
RESPUESTA = InputBox("Ingrese Código a buscar:")
If Not RESPUESTA = "" Then
criterio = criterio & RESPUESTA
adoProveedor.Recordset.MoveFirst
adoProveedor.Recordset.Find criterio 'find para buscar
If adoProveedor.Recordset.EOF Then
MsgBox "Este Código no existe..."
cmdCancelar.Enabled = False
cmdAgregar.Enabled = True

Else
'existe
txtCodigo.Text = adoProveedor.Recordset.Fields("codproveedor")
txtDescripcion.Text = adoProveedor.Recordset.Fields("descripcion")
cmdAgregar.Enabled = False
cmdGuardar.Enabled = False
cmdBuscar.Enabled = True
cmdModificar.Enabled = True
cmdEliminar.Enabled = True
cmdCancelar.Enabled = True
End If
End If

End Sub