请教vba中的数据库连接问题

hersey1017

我要再vba中连接我创建好的数据库，数据库是用Acess做成的。可是都连接不上。高手帮忙看下面代码，哪里出错了？小女子感激不尽！

Private Sub UserForm_Initialize()
strPath = ThisDrawing.Application.VBE.ActiveVBproject.FileName   '获得当前工程路径
Set adoCon = New Connection
adoCon.CursorLocation = adUseClient
adoCon.Open "Provide=Microsoft.Jet.OLEB.4.0;Data Source=" & Left(strPath, Len(strPath) - 8) & "sixsteel.mdb;"
Set adoRs = New Recordset
adoRs.Open "六角钢管", adoCon, adOpenDynamic, adLockOptimistic
If adoRs.RecordCount > 0 Then
   adoRs.MoveLast
   adoRs.MoveFirst
   
    ExchangeData False
 End If
End Sub

其中ExchanggeData是我定义的一个函数。

laoliu09

Left(strPath, Len(strPath) - 7)

调试是很重要的哦！