Boton Buscar

[fede_rosario]

Private Sub cmdBuscar_Click()
criterio = "codproveedor="
RESPUESTA = InputBox("Ingrese Código a buscar:")
If Not RESPUESTA = "" Then
criterio = criterio & RESPUESTA
if adoProveedor.recordset.recordcount < 1 then
goto sale:
end if
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
sale:
End Sub