帮忙看看怎么回室?

Question

对象变量或with块变量未设置
可能由于未赋予域导致的 set rs=new recordset

Answer 1

应该是你的定义错误，你检查一下你的db是否为空；
if db is nothing then
    msgbox "db is null"
end if
加到rs的前面！

Answer 2

Set DBConn = New ADODB.Connection
 Dim Rs As ADODB.Recordset
 Set Rs = New ADODB.Recordset
 MSDatabase = App.Path & "\" & "data\data.mdb"