Visual Basic - Ayuda con una busqueda

Como Puedo Buscar un Registro en la base de datos utilizando una Caja de Texto EJ:
Private Sub Bbuscar_Click()
If tbusca = Empty Then
MsgBox ("Ingrese Rut A Buscar")
Else
With ID.Recordset
.MoveFirst
.Find "Rut = 'tbusca' ", 0, adSearchForward
If .EOF Then
MsgBox (" EL Rut No Existe ")
Else
tnombre = !nombre
tapellido = !apellido
tdireccion = !Direccion
End If
End With
End If
End Sub

Me Pueden Ayudar

Aqui tengo una rutina de Busqueda del Rut, la diferencia es que no envío mensaje de que el RUT no existe, sino que dejo habilitado en forma directa para agregar (Si no existe) y editar si es que existe.
Private Sub completa()
On Error Resume Next
Set GenEmpre = base.OpenRecordset("select * from GenEmpresa")
Text3.Text = Inicio.Label3.Caption
busca = Inicio.Label3.Caption
strpaís = "noemp = '" & busca & "'"
GenEmpre.FindFirst strpaís
With IdEmpresas
.Text9.Text = GenEmpre!idemp
.Text1.Text = Format$(GenEmpre!ruemp, "##,###,###")
d$ = .Text1.Text
Call hacer(d$)
Text2.Text = dd
.Text4.Text = GenEmpre!diemp
.Text5.Text = GenEmpre!ciemp
.Text6.Text = GenEmpre!reemp
.Directorio.Text = GenEmpre!dirtrab
.Text7.Text = Format$(GenEmpre!rurep, "##,###,###")
d$ = .Text7.Text
Call hacer(d$)
Text8.Text = dd
End With
Text1.Enabled = False
Text2.Enabled = False
End Sub