Un desesperado de Access

[fmcampos]

Muy buenas, tengo una dudilla con Access 2003, tengo una base de datos diseñada en access, tengo consulta, formularios, etc. Pero ahora necesito generar un Form que no se que campos va tener antes de la consulta. Para solucionar el problema de la visualización había pensado generar en VBA el form, pero tengo un problema no encuentro como generar la conexión cuando cargo el Form, no se si la conexión ya esta establecida y es una variable global que solo tengo que cogerla y usarla o tengo que llamarla yo de alguna forma. Si alguien es tan amable de poner un mini código que como lanzar una una mini consulta en access (cuando ya estas en access), muchas gracias.

Aquí tenéis la parte del código que he hecho, pero me falla en “rst=db.openrecordset(consulta,dbOpenDynaset”.

Código:

Private Sub Form_Load()

Dim rs As New ADODB.Recordset
Dim rst As DAO.Recordset
Dim db As Database
Dim con As New ADODB.Connection
Dim consulta As String
Dim userWindows As String
    
consulta = "SELECT * from prueba."
Set db = CurrentDb()
Set con = New ADODB.Connection
Set rst = db.OpenRecordset(consulta, dbOpenDynaset)

With Form_Form1
    .Properties("Caption") = "Datos Usuario"
    .Properties("Width") = 450
    '.Properties("Height") = 300
End With

End Sub

Espero que me haya explicado bien.

Un saludo y muchas gracias, un desesperado.

[Taribo007]

Estas un poco mezclando DAO y ADO. Si vas a trabajar en access te recomiendo usar DAO, ya que es el objeto nativo de access y el rendimiento es mejor. Otro temia seria si usaras access contra otro back end.

Un ejemplo, con Dao, para recorrer los registros de una tabla con un recordset:

dim rst as dao.recordset

set rst=currentdb.openrecordset("SElect Campo1 from tabla")

while not rst.eof
msgbox rst("Campo1")
rst.movenext
wend

rst.close
set rst=nothing

Un saludo

[fmcampos]

Muchas gracias por todo me a sido muy util