Vb Help

[swes912]

I am trying to run a query in VB and every time it gets to the query I get a Compile Error: Object Required for stSQL.

Any ideas on what is going on????

Private Sub cmdStartForm_Click()

If (Me![lstMonth].Value = Null) Then
MsgBox "Please highlight a Month.", vbOKOnly
End If
If (Me![lstYear].Value = Null) Then
MsgBox "Please highlight a Year.", vbOKOnly
End If

Dim con As Object
Dim rs As Object
Dim stSQL As String
Dim intOption As Integer

Set con = Application.CurrentProject.Connection
Set rs = CreateObject("adodb.recordset")
Set stSQL = "UPDATE [Basin_Supplemental_Demand]SET [month] = " & Me![lstMonth].Value & ", [year] = " & Me![lstYear].Value & "WHERE bsdID=1;"
rs.Open stSQL, con, 1 '1 = adOpenKeyset