il codice in questa form è praticamente solo questo :
codice:
query = "Select Ordini.articolo From Ordini,Clienti,Città Where Ordini.idCliente = Clienti.idCliente And Città.idCittà = Clienti.idCittà And Città.idCittà = " & N & ""
Set rs = conn.Execute(query)
Do While Not rs.EOF
cboQ.AddItem query
rs.MoveNext
Loop
Set rs = Nothing
la N è una variabile che cambia a seconda della zona che viene cliccata..
codice:
dim query as variant
stringaconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Stazionew3\Desktop\progetto logistica\Logistica\Database Logistica.mdb;"
conn.Open stringaconn
c'è pochissimo codice in quanto l'importante è la query il resto sono operazioni con i recordset visto che è tutto su access il resto..sono per lo più mappe le altre form..solo che come puoi intuire dalle query in base alla zona cliccata voglio visualizzare gli ordini..