求助VB与ACCESS数据库链接出错的问题解决办法

代码如下：
　　模块中的代码：
　　　　Dim Conn As New ADODB.Connection
　　　　Dim MyRecord As New ADODB.Recordset
　　　　Public Sub Connect()
　　　　　Dim ConnStr As String
　　　　  Set Conn = New ADODB.Connection
　　　　  Set MyRecord = New ADODB.Recordset
　　　　  ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\bktj97.mdb;Persist Security Info=False"
　　　 With Conn
     　　 .ConnectionString = ConnStr
      　　.Open
  　　　End With
　　　　End Sub
　　窗口调用代码如下：
　　　　Private Sub Form_Load()
　　　  Dim statestring As String
　　　  Call Connect
　　　  Select Case Conn.State
　　　    Case adStateClose
　　　      statestring = "adStateClosed"
　　　    Case adStateOpen
     　　　 statestring = "adStateOpen"
  　　　End Select
  　　　...............
　　　　End Sub
　　问题错误提示内容：实时错误‘424’,要求对象
　　　　　　提示错误行：Select Case Conn.State

　　望老师及朋友们相助解决问题。致谢！！！ --------------------编程问答-------------------- 已解决.

补充：VB ,  数据库(包含打印，安装，报表)