一个连接数据库的问题。。。

连接数据库的程序如下：
Function GetConfig() As Integer
 
 On Error GoTo GetConfig_ErrorHandler
 Set DBAccess = OpenDatabase(App.Path & "\CZWSTEL_NEW.mdb")
//运行到下面就出现“读取配置文件出错”是什么原因阿????????
 Set Tconfig = DBAccess.OpenRecordset("config", dbOpenTable)
 If Tconfig.RecordCount > 0 Then
   Tconfig.MoveFirst
   Do While Not Tconfig.EOF
     If StrComp(Trim(Tconfig!Var), "DBstr") = 0 Then
         DBstr = Trim(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "OutTime") = 0 Then
         OutTime = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "RecordOutTime") = 0 Then
         RecordOutTime = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "UseChannelNumber") = 0 Then
         UseChannelNumber = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "VOC_PATH") = 0 Then
         VOC_PATH = Trim(Tconfig!Value)
'     ElseIf StrComp(Trim(Tconfig!Var), "DialChannelNumber") = 0 Then
'         DialChannelNumber = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "DBpassword") = 0 Then
         DBpwd = Trim(Tconfig!Value)
         DBstr = DBstr + ";PWD=" + DBpwd
     ElseIf StrComp(Trim(Tconfig!Var), "hour1") = 0 Then
         Hour1 = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "hour2") = 0 Then
         Hour2 = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "hour3") = 0 Then
         Hour3 = Val(Tconfig!Value)
     ElseIf StrComp(Trim(Tconfig!Var), "hour4") = 0 Then
         Hour4 = Val(Tconfig!Value)
     End If
     Tconfig.MoveNext
   Loop
 End If
 
 GetConfig = 1
 Exit Function
 
GetConfig_ErrorHandler:
 GetConfig = 0
End Function