Помогите люди добрые!
КАК ОПИСАТЬ ПАРАМЕТРЫ ДЛЯ ЗАПРОСА???

На дебуге метит строку Set rs = db.OpenRecordset(sSQL) и кидает Run-time error '3061': Too few parameters. Expected 3.
____________________________________________________________________
Private Sub Command16_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String

Set db = DAO.OpenDatabase("C:\MyDB.mdb")

S = 0
sSQL = "SELECT * FROM prodaza WHERE god = combo25.value and mesiac = combo23.value and licnij_kod = text10.text;"

Set rs = db.OpenRecordset(sSQL)

With rs
.MoveFirst
Do While Not .EOF
S = .Fields(5)
ssm = ssm + S
.MoveNext
Loop
End With

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing
Label30.Caption = Str(ssm)
End Sub
____________________________________________

Заранее спасибо!

НЕ РАБОТАЕТ!

Run-time error '2185'
YOU CAN’T REFERENCE A PROPERTY OR METHOD FOR A CONTROL UNLESS THE CONTROL HAS THE FOCUS!

Но я уже разобралась сама.
Спасибо.

Люююди, я уже придумала как ....

Если кому интересно, вот код:
Private Sub Command16_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String

Set db = DAO.OpenDatabase("C:\MyDB.mdb")

licn_kod = licn_kod.Value
god = Combo23.Value
mesiac = Combo25.Value

ssm = 0
sSQL = "SELECT * FROM prodaza;"

Set rs = db.OpenRecordset(sSQL)

With rs
.MoveFirst
Do While Not .EOF
If .Fields(0) = licn_kod And .Fields(4) = god And .Fields(3) = mesiac Then
S = .Fields(5)
ssm = ssm + S
End If
.MoveNext
Loop
End With

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing
Text34.Value = Str(ssm)
Text14.Value = Str(ssm / 100 * Text12.Value)
End Sub

Всем бооооольшущеее пасиба! :)