Visual Basic - Busqueda

hola kisiera saber si me ayudan a realizar una buskeda por medio del nombre y no por la ID este es mi codigo:

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 ninguna empresa")
End If

gracias

si lo que quieres es buscar una empresa en concreto:
Criterio = "Empresa = '" & i & "'"
si lo que quieres es buscar todas las empresas que empiecen con la variable i:
Criterio = "Empresa like '" & i & "*'"
Fíjate en las comillas simples, aquí no se diferencian pero haz un copy and paste y le cambias el tipo de letra a p.e. Courier