supertetuti

No se donde lo estás usando pero si es VB como en cualquier otro lenguaje usa un Select Case

Si lo que quieres es simplemente buscar un registro, usa algo tal que así si usas un control ado: Dim criterio If KeyAscii = 13 Then criterio = "id_Producto = '" & txtBuscar.Text & "'" With adoProductos.Recordset .MoveFirst .Find criterio, ,...