Visual Basic - adaptar codigo ado a dao

alguien me puede ayudar a adaptar este codigo a dao??? gracias

Private Sub Form_Load()
Connex.CursorLocation = adUseClient
Connex.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=Base.mdb;Persist Security Info=False"
' & ";" & "Jet OLEDB:Database Password=CONTRASEÑA" ' Si quieres ponerla
With rsClie
If .State Then .Close
.Open "SELECT * FROM Tabla Order by Nombre", Connex, adOpenStatic, adLockOptimistic
If .RecordCount Then VerGridClie
End With

End Sub

Private Sub Form_Resize()
txtclie.SetFocus
End Sub

Private Sub txtclie_GotFocus()
txtclie.SelStart = 0
txtclie.SelLength = Len(txtclie)

End Sub

Private Sub txtclie_Change()
On Local Error Resume Next
With rsClie
If .State Then .Close
.Open "Select * From tabla Where Nombre like '%" & txtclie.Text & "%' Order by Nombre", Connex, adOpenStatic, adLockOptimistic
If .RecordCount = 0 Then
MsgBox ("Parece existir un carácter erróneo" & Chr(10) & _
"en el nombre de este cliente.")
txtclie = Left(txtclie, Len(txtclie) - 1)
Exit Sub
End If
End With

VerGridClie
DoEvents
txtclie.SetFocus
End Sub

Private Sub VerGridClie()
With DGClie
.Visible = True
Set .DataSource = rsClie
.Refresh
.Caption = "LISTADO DE CLIENTES"
.AllowUpdate = False
.Splits(0).AllowRowSizing = False
End With
End Sub

Private Sub DGClie_DblClick()
Form2.Text1.Text = DGClie.Columns(1).Text
End Sub

Private Sub Command1_Click()
Form2.Show vbModal
End Sub

para utilizar ese sistema de busqueda en este programa, pero dicho lo dicho recomiendame un manual para modificar mi codigo a dao por favor no quiero que nadie me lo haga solo quiero si puede ser me deis pistas ( un manual, una direccion etc...) siempre he programado en dao y me cuesta pasarme

saludos

Option Explicit
Dim basededatos As Database
Dim tablasocios As Recordset
Dim dni_licen
Dim prueba_combo

Private Sub Form_Load()
Set basededatos = OpenDatabase("C:\Programa Gestion Aikido\socios.mdb ")
Set tablasocios = basededatos.OpenRecordset("miembros_club")
End Sub

Private Sub busqueda_Click()
Text2.Enabled = True
Text2.SetFocus
End Sub

Private Sub Combo1_LostFocus()
If Combo1 <> "" Then
Combo1.Enabled = False
Text1.Enabled = False
DTPicker1.Enabled = False
prueba_combo = Combo1
busqueda.Enabled = True
fin_curso.Enabled = True
Else
MsgBox "introduce datos", vbDefaultButton1
Combo1.SetFocus
End If

End Sub

Private Sub DTPicker1_GotFocus()
If Text1.Text = "" Then
MsgBox "Introducir datos", vbDefaultButton1
Text1.SetFocus
End If
End Sub

Private Sub TDBGrid1_Click()
foto_socio = Nothing
End Sub

Private Sub TDBGrid1_DblClick()
dni_licen = Data1.Recordset.Fields("curso_dni")
Data2.DatabaseName = "C:\Programa Gestion Aikido\licencias.mdb"
Data2.RecordSource = "licencias_socios"
Data2.RecordSource = "select * from licencias_socios where dni_socio = '" & dni_licen & "'"
Data2.Refresh
tablasocios.MoveFirst
Do While Not tablasocios.EOF
If dni_licen = tablasocios.Fields("c_dni") Then
foto_socio = LoadPicture(tablasocios.Fields("c_foto"))
Exit Do
End If
tablasocios.MoveNext

Loop
End Sub

contestas las preguntas con preguntas...?? de que se trata,,, de resolver problemas o de ampliar dudas..???

que carajos te importa si el quiere cambiar de ADO a DAO..?? que acaso todos tienen que hacer lo que segun tu es lo mejor?????

limitate a responder lo que se pregunta remedo de mierd@

halla paz amigos que mi pregunta no sirva para sembrar discordia

esta era la solucion gracias a todos

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
With Data1.Recordset
.FindFirst "curso_apellidos LIKE " & Chr$(34) & Text2 & "*" & Chr$(34)
End With
End Sub

Mira Ivan, si andas de preguntòn es porque no sabes. asi que aguanta vara. Ah por cierto lo que quieres hacer es imposible. ni bill gates pudo.