sto creando un progetto in access 2003 scritto in vba(ado) ke si interfaccia al db oracle.
scrivendo la seguente query attraverso l'editor di oracle la query fuziona,"traducendola" nel formato vba(e assegnando ad esso i valori delle variabili ke vengono prelevate dalle combobox)la query non funzione ed access ritorna l'errore"connessione chiusa o non valida in questo contesto"
le tabelle sono cosi strutturate(admin viene aggiunto da access quando vengono importate le tabelle)

admin_tavolo=
NUMERO_TAVOLO num PK
NUMERO_POSTI num
NUMERO_POSTI testo

admin_prenotazione_ristorante=
ID num PK
DATA_ARRIVO date
TAVOLO_PRENOTATO num
TIPO testo

la query è la seguente

formato sql normale=
select numero_tavolo from tavolo inner join prenotazione_Ristorante on (tavolo_prenotato=numero_tavolo)
where (numero_posti=8 and data_arrivo='25-giu-08' and ubicazione='Interno' and
tipo='Pranzo')

codice vba di access=
Private Sub cmd2_Click()
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "select numero_tavolo from admin_tavolo inner join admin_prenotazione_Ristorante on (tavolo_prenotato=numero_tavolo) where (numero_posti=" & _
vposti.Value & "and data_arrivo='" & vdata.Value & "' and ubicazione='" & vubi.Value & "' and tipo='" & vtipo.Value & "')"
Do Until rst.EOF
cmb.AddItem (rst.Fields("numero_tavolo"))
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub