Set rs = db.OpenRecordset(sSQL,dbOpenForwardOnly)
为啥Debug就说“类型会不匹配”，然后提示上面这句。
单个程序能运行.但是添加到另一个里面就出现这问题。
另一个是用模块
Public cnn As New ADODB.Connection
Public rec As New ADODB.Recordset
Sub main()
strsql = "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq=" & App.Path + "\data.mdb"
cnn.CursorLocation = adUseClient
cnn.Open strsql
Form2.Show
End Sub
连接的数据库。

Set rs = db.OpenRecordset(sSQL,dbOpenForwardOnly)
改成
Set rs =cnn.OpenRecordset(sSQL,dbOpenForwardOnly)

有图片存入数据库的代码吗？谢谢管理员了，每天就给我一个人回答问题了。
最好简单的点，我新学VB，复杂的看不懂。