Ciao a tutti,
nuovo quesito!

Option Explicit
*********************************
Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
*********************************
Private Sub Combo1_Click()
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\elenco.mdb"

.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Open
End With
With Rs
.ActiveConnection = Cn
.LockType = adLockOptimistic
End With
Rs.Open "SELECT * FROM elenco WHERE Sommatotale = '" & Combo1.Text & "'"
Set DataGrid2.DataSource = Rs

[sommatotale è una query.mdb]

e fin qui tutto normale, ma se sull' evento del click contenporaneamente voglio inserire anche questa stringa come la passo??

Rs.Open "SELECT * FROM elenco WHERE data = '" & Combo1.Text & "'"

Set DataGrid1.DataSource = Rs
[invece elenco è una tabella.mdb]

End Sub