vba mysql 80004005_80004005错误,求高手指点,急,谢谢!

Sub 按预览提取数据()

Dim myData, strSql1, strSql2 As String

Dim Conn As Object, rs1 As Object, rs2 As Object

Dim i As Integer

myData = Sheets("设置").Cells(2, 1)                                      '指定数据库,包含路径

A = 1

Set conn1 = CreateObject("adodb.connection")

Set conn2 = CreateObject("adodb.connection")

Set rs1 = CreateObject("adodb.recordset")

conn1.Provider = "Microsoft.JET.OLEDB.4.0"

conn2.Provider = "Microsoft.JET.OLEDB.4.0"

conn1.ConnectionString = myData

conn2.ConnectionString = myData

conn1.Open

conn2.Open

For X = 4 To 19

If Sheets("设置").Cells(X, 8) > 0 Then

strSql1 = "Select * From 岗位考评题库 WHERE 考评部门 = '" & Sheets("设置").Cells(2, 6) & "'AND 考评岗位 = '&