Hola, es un placer ser un nuevo mienbro de esta web que esta buenisima, queria hacer la siguiente consulta el tema es ado activex full codigo con acces

tengo este formulario



lo que quiero es codificar el boton de busqueda por nombre y por empresa

mi codigo es el siguiente

Option Explicit

Dim cn As Connection
Dim rst As Recordset

Private mintCurFrame As Integer ' Marco activo visible


' Primer registro, siguiente, etc...
Private Sub cmdNav_Click(Index As Integer)

' Si hay registro activo sale
If rst.BOF And rst.EOF Then Exit Sub

Select Case Index

Case 0
rst.MoveFirst
Case 1
rst.MovePrevious
If rst.BOF Then rst.MoveFirst
Case 2
rst.MoveNext
If rst.EOF Then rst.MoveLast
Case 3
rst.MoveLast

End Select

' Carga la imagen en el Picture
Mostrar_Imagen

End Sub

Private Sub Command1_Click(Index As Integer)

Select Case Index

'Agrega un nuevo registro
Case 0
rst.AddNew
Picture1.Cls
Picture2.Cls
fechanac.Enabled = True
'Elimina el registro activo

CmdNuevo

Case 1
If rst.EOF Or rst.BOF Then Exit Sub
If MsgBox("Eliminar Registro", vbQuestion + vbYesNo) = vbNo Then Exit Sub

Picture1.Cls
Picture2.Cls
'Elimina el archivo de la carpeta de imagenes
If rst(Field_Img) <> "" Then
Call Kill(Carpeta_IMG & rst(Field_Img))
End If

rst.Delete

If rst.RecordCount > 0 Then
cmdNormal
Else
cmdSinRegistros
End If

If rst.EOF Or rst.BOF Then
Exit Sub
End If
rst.MoveNext

If rst.EOF Then
On Error Resume Next
rst.MoveLast
End If
'Carga la imagen del registro activo
Mostrar_Imagen
Exit Sub

' Botón Actualizar los cambios en la base de datos
Case 2
If Not rst.EOF And Not rst.BOF Then

rst.Update
Guardar_Imagen
cmdNormal
End If
fechanac.Enabled = False
' Cancela la atualización o edición del registro que se editando o añadiendo
Case 3
cmdEditar
fechanac.Enabled = True
Setear_TextBox
Exit Sub

'Botón Editar el registro activo
Case 4
fechanac.Enabled = True
If rst.EOF And rst.BOF Then Exit Sub
rst.CancelUpdate

If Not rst.BOF And Not rst.EOF Then
If rst(Field_Img) <> "" Then
Call Dibujar_Imagen(Picture1, Carpeta_IMG & rst(Field_Img))
End If

End If

If rst.RecordCount > 0 Then
cmdNormal
Else
cmdSinRegistros
End If
'Carga una imagen en el control Picture1
Case 5

With CommonDialog1
.DialogTitle = " Seleccionar imagen"
.Filter = "BMP|*.bmp|JPEG|*.jpeg|GIF|*.gif|JPG|*.jpg|Todos|* .*"

.ShowOpen

If .FileName = "" Then
Exit Sub
Else

' Graba el nombre en el campo, el id de imagen _
que es el mismo que el campo Id

rst(Field_Img) = rst!id '


' se dibuja la imagen en el Picture
Call Dibujar_Imagen(Picture1, .FileName)

End If
End With

Exit Sub

Case 6

' Limpia la imagen del Picture y Elimina el id de _
imagen del registro actual de la base

If MsgBox("Desea eliminar la imagen ?", vbYesNo + vbQuestion) = vbYes Then
Picture1.Cls
rst(Field_Img) = ""
Exit Sub
End If

End Select


Setear_TextBox

' Muestra la imagen
Mostrar_Imagen

End Sub

Sub Guardar_Imagen()


' Si el campo Id_Imagen no está vacio ...
If rst(Field_Img) <> "" And CommonDialog1.FileName <> "" Then
' Copia el archivo a la carpeta de imagen
Call FileCopy(CommonDialog1.FileName, _
Carpeta_IMG & "\" & rst!id)

'... si no, si el archivo está en lacarpeta lo elimina

ElseIf Dir(Carpeta_IMG & "\" & rst!id) <> "" And rst(Field_Img) = "" Then
Call Kill(Carpeta_IMG & rst!id)

End If
End Sub


Private Sub Mostrar_Imagen()

With rst
' Si no hay ningún registro activo sale
If .EOF Or .BOF Then
Exit Sub
End If

' Si el registro no tiene una imagen asociada Limpia el Picture
If .Fields(Field_Img) = "" Or .Fields(Field_Img) = 0 Then
Picture1.Cls
Else
' Lee el archivo de imagen y lo dibuja en el Picture
Call Dibujar_Imagen(Picture1, Carpeta_IMG & .Fields(Field_Img))
End If

'Me.Caption = "Registro N°: " & CStr(.AbsolutePosition)

End With

End Sub

Private Sub Setear_TextBox()
'Bloquea y desbloquea los textbox
Dim T As TextBox
For Each T In Me.txt_Field
T.Locked = Not T.Locked
Next
End Sub

' Habilita y deshabilita los CommandButton

Private Sub Setear_botones()

Dim i As Integer

For i = 0 To Command1.Count - 1
Command1(i).Enabled = Not Command1(i).Enabled
Next

For i = 0 To cmdNav.Count - 1
cmdNav(i).Enabled = Not cmdNav(i).Enabled
Next

End Sub


Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next

If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
Set rst = Nothing
End If
If Not cn Is Nothing Then
If cn.State = adStateOpen Then cn.Close
Set cn = Nothing
End If

End Sub

Private Sub Form_Load()
mintCurFrame = TabStrip1.SelectedItem.Index

fechanac.Enabled = False
DTPicker1.Enabled = False






Dim Pathbd As String, cadena As String
Dim T As TextBox

Set cn = New Connection

Pathbd = App.Path & "\db1.mdb"

cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pathbd & _
";Persist Security Info=False"


cn.Open cadena

Set rst = New Recordset

rst.Open "Select * FROM Contacto", cn, adOpenStatic, adLockOptimistic

' Nombre del campo que tiene el ID de imagen
Field_Img = "ID_Imagen"
' Path de la carpeta donde están las imagenes
Carpeta_IMG = App.Path & "\img\"

' Si no existe la carpeta para guardar las imagen la crea
If Dir(App.Path & "\img", vbDirectory) = "" Then
MkDir App.Path & "\img"
End If

If rst.RecordCount > 0 Then
Call cmdNormal
Else
Call cmdSinRegistros
End If
Set Combo1.DataSource = rst
Set comuna.DataSource = rst
Set ciudad.DataSource = rst
Set sexo.DataSource = rst



Set Text19.DataSource = rst
Set Empresas.DataSource = rst
Set Text17.DataSource = rst
Set Text21.DataSource = rst
Set Text14.DataSource = rst
Set Text16.DataSource = rst
Set Text15.DataSource = rst
Set Text20.DataSource = rst
Set Text13.DataSource = rst
Set Text11.DataSource = rst
Set Text9.DataSource = rst
Set Text12.DataSource = rst
Set Text10.DataSource = rst
Set Text8.DataSource = rst
Set Text7.DataSource = rst


'2222222222

Text19.DataField = "Representante Legal"
Empresas.DataField = "Empresas"
Text17.DataField = "RUC"
Text21.DataField = "Rubro"
Text14.DataField = "Direccion de empresa"
Text16.DataField = "Partidas"
Text15.DataField = "Ficha"
Text20.DataField = "Asiento"
Text13.DataField = "Telefono empresa"
Text11.DataField = "Celular empresa"
Text9.DataField = "Email empresa"
Text12.DataField = "Telefono empresa2"
Text10.DataField = "Fax"
Text8.DataField = "Email empresa2"
Text7.DataField = "Notas empresa"

Combo1.DataField = "Empleados"
Combo2.DataField = "Estado Civil"
comuna.DataField = "Distrito"
ciudad.DataField = "Cuidad"
sexo.DataField = "Sexo"
Set fechanac.DataSource = rst
fechanac.DataField = "FechaNac"



Set txt_Field(0).DataSource = rst
Set txt_Field(1).DataSource = rst
Set txt_Field(2).DataSource = rst
' Set txt_Field(3).DataSource = rst
Set txt_Field(4).DataSource = rst
Set txt_Field(5).DataSource = rst
Set txt_Field(6).DataSource = rst
' Set txt_Field(7).DataSource = rst
Set txt_Field(8).DataSource = rst
Set txt_Field(9).DataSource = rst
Set txt_Field(10).DataSource = rst
Set txt_Field(11).DataSource = rst
Set txt_Field(12).DataSource = rst
Set txt_Field(13).DataSource = rst


txt_Field(0).DataField = "Nombre"
txt_Field(1).DataField = "DNI"
txt_Field(2).DataField = "Email"
' txt_Field(3).DataField = "Email"
txt_Field(4).DataField = "Ocupacion"
txt_Field(5).DataField = "Direccion"
txt_Field(6).DataField = "Notas"
'txt_Field(7).DataField = "Email"
txt_Field(8).DataField = "Telefono"
txt_Field(9).DataField = "Telefono2"
txt_Field(10).DataField = "Movil"
txt_Field(11).DataField = "Movil2"
txt_Field(12).DataField = "Email2"
txt_Field(13).DataField = "Conyuge"



'Opcional: esto visualiza el Id del registro en un label
Set lblID.DataSource = rst
lblID.DataField = "Id"

Call Setear_TextBox

' carga la imagen en el registro si es que tiene
Call Mostrar_Imagen

End Sub


Sub cmdNormal()

DeshabilitarTodosCmd

Command1(0).Enabled = True
Command1(1).Enabled = True
Command1(3).Enabled = True

End Sub

Sub cmdSinRegistros()

DeshabilitarTodosCmd
Command1(0).Enabled = True

End Sub

Sub cmdEditar()

DeshabilitarTodosCmd
Command1(2).Enabled = True
Command1(4).Enabled = True
Command1(5).Enabled = True
Command1(6).Enabled = True

End Sub

Sub CmdNuevo()
DeshabilitarTodosCmd
Command1(2).Enabled = True
Command1(4).Enabled = True

Command1(5).Enabled = True
Command1(6).Enabled = True
End Sub

Sub DeshabilitarTodosCmd()
Command1(0).Enabled = False
Command1(1).Enabled = False
Command1(2).Enabled = False
Command1(3).Enabled = False
Command1(4).Enabled = False
Command1(5).Enabled = False
Command1(6).Enabled = False

End Sub

Private Sub Label63_Click()
End Sub

Private Sub Label61_Click()
End Sub

Private Sub Label71_Click()

End Sub

Private Sub Label74_Click()

End Sub

Private Sub listado_Click()
Form3.Show
End Sub

Private Sub TabStrip1_Click()
If TabStrip1.SelectedItem.Index = mintCurFrame Then
Exit Sub ' No necesita cambiar el marco.
End If

' Oculte el marco antiguo y muestre el nuevo.
Frame1(TabStrip1.SelectedItem.Index).Visible = True

Frame1(mintCurFrame).Visible = False
' Establece mintCurFrame al nuevo valor.
mintCurFrame = TabStrip1.SelectedItem.Index
End Sub



MI codigo de buscar por cliente en ado con control no full codigo
tengo el mismo ejercicio pero en ado con el control creado y mi codigo en buscar por empresa es asi:


Private Sub Buscar_Click()
CentrarFormulario
Dim buscando As String, Criterio As String

buscando = InputBox("¿Que nombre quieres buscar?")
If buscando = "" Then Exit Sub
Criterio = "Nombre Like '*" & buscando & "*'"

'Buscar desde el siguiente registro a la posoción actual
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
' Buscar desde el principio
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub


pero yo lo quiero pasar a ado full codigo pero no me sale, aver si me apoyan,muchas gracias