运行程序时总是出现"对象变量或With块变量未设置"，找了好久都不知道错误出在哪?请各位帮帮忙啊，不胜感激

问题应该在这段里边
Public Function GetGroupRecordset() As ADODB.Recordset
'变量定义
Dim sql As String 'SQL
Dim rs As ADODB.Recordset '记录集

'生成SQL
sql = "SELECT * FROM groupInfo"

On Error GoTo ERREND
Set rs = dbconn.Execute(sql)
Set GetGroupRecordset = rs
Exit Function
ERREND:
Set GetGroupRecordset = Nothing
End Function

1.你的数据库文件在哪?
2.执行SQL前拜托你先把数据库关闭再重新连接好然后打开了再执行查询,我找遍整个程序怎么就没见到哪一句用来打开数据库的

怎么会没有，就是下面这段啊
Public Function ConnDb() As Boolean
On Error GoTo FunctionEnd
ConnDb = False
Set dbconn = New ADODB.Connection
dbconn.CursorLocation = adUseClient
dbconn.Open GetDbConnString()
ConnDb = True
FunctionEnd:
End Function

呵呵。。。忘记把数据库加上去，重新传一下

说了你没打开数据库啊,你只是写了一个打开的函数,但你在上面那段程序里读取数据时没打开啊,大哥
在sql = "SELECT * FROM groupInfo" 下加一行
ConnDb()