adodc 连接ACCESS问题

Question

我用adodc 连接ACCESS，写了如下的代码但开始运行时总是提示〔ADODC〕：没有指定记录源  〔ADO〕：没有为命令对象设置命令，运行后点击 Command1 又提示：标准表达式中数据类型不匹配。我在ADODC属性－通用中使用了连接字符串，也能通过连接测试。请帮我改一下下面的代码，如果需要在ADODC或ACCESS中进行什么设置或写什么命令也请祥细写一下，不胜感激。Public Cn           As New ADODB.Connection
Public V_Conn       As String
    
Private Sub Command1_Click()
V_Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\新建文件夹 (2)\Interface.mdb;Persist Security Info=False"
Cn.Open V_Conn
Cn.CursorLocation = adUseClient
Dim Rs As New ADODB.Recordset
     Str1 = "Select * From CompareBase Where Xm_Code <> 0"
     Rs.Open Str1, Cn
     Set Adodc1.Recordset = Rs
     Adodc1.Refresh
End Sub

Answer 1

不知道你的code是什么数据类型，如果是字符类型的话，就必须在0上加引号。
rs.open str1,cn,1,1