Bom, por acaso não testei, mas sei que as funções funcionam!
Uma serve para criar uma "query" no access, outra para alterar uma "query" existente.
Tudo isto usando ADO.
Mas como o que quer mesmo é um exemplo usando DAO, tratei de, recorrendo aos "velhos conhceimentos de DAO, criar um exemplo.
Aí vai:
Option Explicit
Public db As DAO.Database
Dim nomeq As String
Public q As QueryDef
Public strsql As String
Private Sub Command1_Click()
criaquery
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & " este_querys.mdb")
End Sub
Public Sub criaquery()
nomeq = "qENTIDADES"
strsql = "SELECT * FROM tENTIdADES "
Set q = db.CreateQueryDef(nomeq, strsql)
End Sub
Se precisar do exemplo, como já esta pronto, deixe o seu mail que enviarei.
