Visual Basic - Busqueda

un ejemplo de busqueda tengo este codigo:

Private Sub CmdBuscar_Click()
Dim i As String, Criterio As String
i = InputBox("Introduce el nombre de la empresa", "Buscar Empresa")
Criterio = "Empresa 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

pero yo kiero ke me busque por el nombre de empresa

ayuda

gracias

si empresa es el campo donde guardas el nombre deberia funcionar
prueba con esto es casi igual


Dim Buscado As String, criterio As String
Buscado = InputBox("Ingrese el Nombre a Buscar", "Buscar")
criterio = "Nombre like '*" & Buscado & "*'"
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox ("XXXX no Existe")
Data1.Recordset.MoveLast
End If
End Sub