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

怎么会没有，就是下面这段啊
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

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