# Re: error message '3706'

Posted by chen on November 20, 1999 at 15:47:17:

In Reply to: Re: error message '3706' posted by James on November 20, 1999 at 12:27:20:

: : 本人在WIN98SE+VB6SP3做一资料库程式，当封装好一安装档在另一台WIN95电脑安装，安装过程无任何问题，但安装完成后执行程式，当要执行存取资料库的表单时却出现"执行阶段错误'3706'：ADO找不到指定的提供者"，而无法执行程式．但此程式之前在本人电脑测试安装执行无误，请问VB高手，本人该如何解决此一问题？感谢大家。

: 可否把 ADO connection 部分的程式码贴出??

If Dir(App.Path & "\BASEDATA.MDB") <> "" Then
connstr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\BASEDATA.MDB"
BaseConnect.Open connstr
DepRs.CursorLocation = adUseClient
DepRs.Open "厂课", BaseConnect, adOpenKeyset, adLockPessimistic
OkRs.CursorLocation = adUseClient
OkRs.Open "完成", BaseConnect, adOpenKeyset, adLockPessimistic
If DepRs.RecordCount <> 0 Then
DepRs.MoveFirst
Else
Command1(1).Enabled = False
End If
If OkRs.RecordCount <> 0 Then
OkRs.MoveFirst
End If
Else
MsgBox "资料档不存在,无法继续", 16, "警告"
Unload Me
End If

Follow Ups:

- Re: error message '3706' vicky 15:11:51 11/22/99 (0)