Visual Basic - Busqueda

hola kiero efectuar una buskeda por medio de la ID, si la efectua pero pss en el dialogo de pregunta... si le doy "Cancel" truena el programa.... y pss si me pueden ayudar aparte como puedo agregarle ke aparte de la ID busque por nombre de cliente

gracias este es mi codigo:

Private Sub CmdBuscar_Click()
Dim i As String, Criterio As String
i = InputBox("Introduce el ID del cliente")
Criterio = "ID like " & i & ""
Data1.Recordset.MoveNext
Data1.Recordset.FindFirst Criterio
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
MsgBox ("No se encontro ningun registro")
End If
End Sub

Cuando le das a cancel en i se deja un "". Pregunta por el valor de i antes de hacer el query