Visual Basic - conversion ado a dao

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