Buenas, necesito un manual donde pueda aprender recordsets en acccess, con el k pueda aprender a hacer cosas asi:



Dim db As Database, ejemplo As TableDef, rst As Recordset
Dim i As Integer
Dim diferent As Boolean
diferent = True
Set db = CurrentDb
Set ejemplo = db.TableDefs!ejemplo
Set rst = ejemplo.OpenRecordset(dbOpenDynaset)
i = 1
While (Not (rst.EOF) And diferent = True)
If (txtcodi = rst![codi]) Then
diferent = False
End If
rst.MoveNext
Wend
If (diferent = True) Then
rst.AddNew
rst![codi] = txtcodi
rst![nom] = txtnom
rst![cognom] = txtcognom
rst![telf] = txttelf
rst.Update
rst.Requery
Else
MsgBox ("El codigo que intentas introducir ya existe, para modificar el registro usa el boton modificar")
End If
rst.Close
Set db = Nothing
-----------------------------
Dim db As Database, Clients As TableDef, ccBusqueda As QueryDef, rst As Recordset
Dim codClient As Integer, i As Integer
Set db = CurrentDb
Set Clients = db.TableDefs!Clients
Set ccBusqueda = db.QueryDefs!Consulta
Set rst = Clients.OpenRecordset(dbOpenDynaset)
codClient = Me.ccBusqueda
If codClient <> 1 Then
For i = 1 To codClient - 1
rst.MoveNext
Next i
End If
txtCodi = rst![codi]
txtNom = rst![nom]
txtCognom = rst![cognom]
txtPoblacio = rst![poblacio]
rst.Close

-----------
dim db as DataBase, formulario as form, propiedad as propiety
set db=Currentdb
Debug.Print Propiedad.name
For each propiedad in db.propieties
Debug.Print Propiedd.Name
Next propiedad
Debug.Print "propiedades del formulario"
DoCmd.OpenForm "Empleados",acwindownormal
st formulario=Forms.Empleados
For each propiedad in Formulario.Propieties
Do.Print propiedad.name
next propiedad
set formulario=nothing
set db=nothing
end sub