Visual Basic - Buscar datos

por favor alguien que me ayude quiero buscar un valor
te explicaré brevemente tengo un formulario con los datos de una tabla y quisiera buscar por el campo id que tengo un numero de registro y si lo hay me lo muestre en pantalla rellenando los siguientes campos de la tabla y si no me muestre un mensaje avisandome que no lo encuentrá me urge por favor

Hola.

Private Sub Command1_Click()
Dim Mensaje, Título, ValorPred, MiValor
Mensaje = "Introduzca el valor a buscar"
Título = "Buscar registro"
ValorPred = "Valor a buscar"
MiValor = InputBox(Mensaje, Título, ValorPred)
If IsNumeric(MiValor) = True Then
Criterio$ = "CampoId =" & MiValor
Data1.Recordset.FindFirst Criterio$
If Data1.Recordset.NoMatch Then
MsgBox "No se ha encontrado el registro.", vbCritical
Else
Text1.Text = Data1.Recordset.Fields("CampoId")
Text2.Text = Data1.Recordset.Fields("Campo2")
End If
End If
End Sub

Espero que esto te sirva

Saludos