Необходимо чтобы в запрос вместо where Завод = подставлялось значение factory = item_zavod(),код ошибок не выдает,но и не вычисляет необходимое значение,может кто подскажет,что я делаю не так,заранее большое спасибо.Еще вопрос для новичка - как можно в среде Visual basic.net посмотреть результат выполнения запроса?

Dim factory As Integer
factory = item_zavod() 'выбранный код завода
cnn.ConnectionString = m_sConn2
Dim sql As String
sql = "select *from [Лист1$] where Завод = @factory"
cmd = New OleDb.OleDbCommand(sql, cnn)
cmd.Parameters.Add("@factory", OleDbType.Integer).Value = factory
cnn.Open()

myRead = cmd.ExecuteReader()
Do While myRead.Read()
'вес продукции-----------------------------------------------
If IsDBNull(myRead.Item("Вага")) = True Then
myArray_prodVes(i) = 0
Else
myArray_prodVes(i) = myRead.Item("Вага")
summ_ves += myArray_prodVes(i)
End If
ReDim Preserve myArray_prodVes(UBound(myArray_prodVes) + 1)
'ReDim Preserve work_zolnost(UBound(work_zolnost) + 1)
i = i + 1
Loop