method open of object _recordset failed 错误

Question

Private Sub Form_Activate()
   Dim iBookMark As Integer
   Dim strSQL As String
   
    strSQL = "select itemmstr.cust_code, itemmstr.MRP_FG, itemmstr.ITEM_NO, itemmstr.oms_itemno, itemmstr.ITEM_DESCE, itemmstr.material_type, itemmstr.i_date, itemmstr.factory_code, itemmstr.Mrp_MG, itemmstr.Mrp_MC, itemmstr.Mrp_ProcType, itemmstr.Mrp_SP, itemmstr.mrp_prodsch,itemmstr.Mrp_BF, itemmstr.Mrp_PG, itemmstr.Mrp_GIS, itemmstr.Mrp_GRS, itemmstr.Mrp_LS, itemmstr.Mrp_iUser, itemmstr.Mrp_iDate, itemmstr.Mrp_ApprUser, itemmstr.Mrp_ApprDate, itemmstr.Mrp_Prod " & _
                " FROM itemmstr " & _
                " WHERE ((itemmstr.appr_status)='A' and itemmstr.mrp_fg = " & False & " and itemmstr.factory_code = '" & strPFactoryCode & "') order by itemmstr.item_no,itemmstr.mrp_fg,itemmstr.factory_code "
   
  If rs.State <> adStateClosed Then
    rs.Close
  End If
  
  rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
  
  Set DataGrid1.DataSource = rs提示：
method open of object _recordset failed错误代码为 ：
  rs.Open strSQL, cn, adOpenStatic, adLockReadOnly有了解的帮帮忙，谢谢！！
 

Answer 1

itemmstr.mrp_fg什么类型? 这样试下:
itemmstr.mrp_fg = 0

Answer 2

and itemmstr.mrp_fg = false and 

Answer 3

(itemmstr.appr_status)='A'
这个字段名称为什么加括号?

Answer 4

SQL 语句我在查询分析器可正确执行 ！！
括号是可以去掉的 ！

Answer 5

犯了错误 ！！ 确实是CN没连接好，本来是用ODBC，现在改用了OLEDB,请问下 ！这两种方法连接的转变有什么好的办法！！