run time error on parameters

[metalman]

getting a run time error of no value given for one or more required parameters.

Set sht = Worksheets("Detail&quot
For i = 1 To RowsCount
For j = 1 To ColsCount
sql_str = "SELECT Sum(Amount) as m " & _
"FROM Entry INNER JOIN Items ON Entry.ItemNum = Items.ItemNum " & _
gWhereStrArr(i) & "And Items.LCD='" & gColNameArr(j) & "'"


Set rs = New Recordset
Debug.Print sql_str
rs.Open sql_str, cn, adOpenStatic, adLockReadOnly

sht.Cells(i + 8, j + 1) = rs.fields("m&quot

rs.Close
Set rs = Nothing
Next j
Next i

 

[metalman]

sorry it errors on line:
rs.open SQL_str, cn, adopenstatic, adlockreadonly

 

[zemp]

Looks like you are missing part of your sql statement. The WHERE clause does not make any sense. Check it and try again.


sql_str = "SELECT Sum(Amount) as m "

sql_str=sql_str & "FROM Entry INNER JOIN Items ON Entry.ItemNum = Items.ItemNum "

sql_str=sql_str &<PROBLEM HERE!!!> & gWhereStrArr(i) & &quot;And Items.LCD='&quot; & gColNameArr(j) & &quot;'&quot;

&quot;WHERE something='&quot; seems to be missing.

Thanks and Good Luck!

zemp