ciao scusatel'igmoranza ma mi da un errore di run time 91 su questo codice:


Option Compare Database

Private Sub Comando72_Click()
On Error GoTo Err_Comando72_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70


Exit_Comando72_Click:
Exit Sub

Err_Comando72_Click:
MsgBox Err.Description
Resume Exit_Comando72_Click

End Sub

Private Sub btnCreca_Click()

Dim stDocName As String
Dim query As String
Dim Fields() As String
query$ = ""
query$ = query$ & "SELECT "
query$ = query$ & " * "
query$ = query$ & "FROM "
query$ = query$ & "[Register]"
query$ = query$ & "WHERE"
query$ = query$ & " ID=3"


Dim dbsCurrent As Database
Set qryTest = dbsCurrent.QueryDefs("Union")
qryTest.SQL = query
DoCmd.OpenQuery ("Union")


End Sub

Private Sub Form_Click()

End Sub




Sapete aiutarmi?????
Grazie