VBA 程序错误 请高手帮忙救命啊，急求详细解答。。。。急急。。。

①运行错误 ，箭头处。。
Sub auto_open()
Dim mydata As String
mydata = ThisWorkbook.Path & "\固定资产折旧数据.accdb"
      Set cnn = New ADODB.Connection
      With cnn
         .Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
         .Open mdb      <- 错误在这里，提示是3706（我的excel和access都是2003版的）
     End With  
② 运行错误3709
Private Sub CommandButton1_Click()
    UserForm1.Show      <-错误，但是我检查了下代码，我自己没写错
End Sub
Private Sub CommandButton2_Click()
    UserForm2.Show          <-错误
End Sub
Private Sub CommandButton3_Click()
    Call kpcxxg
End Sub
Private Sub CommandButton4_Click()
    UserForm6.Show          <-错误
End Sub
③ 运行错误3001
Sub kpcxxg()
     Dim rscx As ADODB.Recordset
     Dim mysql As String
     Dim i As Integer
     Set rscx = New ADODB.Recordset
     mysql = "select * from kpcx"
     rscx.Open mysql, cnn, adOpenKeyset, adLockOptmistic    <-这里错误
     If rscx.RecordCount = 0 Then
      MsgBox "目前没有任何固定资产信息!"
      Exit Sub
     End If
     rscx.MoveFirst
     Sheets("卡片查询及修改").Select
     Range("a2:k200").ClearContents
     For i = 1 To rscx.RecordCount