# Re: Sorry, this works!(there is the same error)

Posted by wen on September 23, 1998 at 08:39:32:

In Reply to: Sorry, this works! posted by 小吴 on September 23, 1998 at 08:01:28:

: 我打错了，正确的连接字串是
: scnct = "DBQ=c:\winnt\db1.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MS Access;UID=;PWD=;"

: 再试看看!

program as follows:
Option Explicit

Public en As rdoEnvironment
Public cn As rdoConnection
Private Sub Form_Load()
Dim scnct As String
Dim rs As rdoResultset
Dim ssql As String
Set en = rdoEngine.rdoEnvironments(0)
scnct = "DBQ=c:\winnt\db1.mdb;Driver={Microsoft Access Driver(*.mdb)};"
scnct = scnct & "DriverID=25;FIL=MS Access;UID=;PWD=;"
Set cn = en.OpenConnection(dsname:="yuan", _
prompt:=rdDriverNoPrompt, ReadOnly:=False, _
Connect:=scnct)
ssql = "select * from branch"
Set rs = cn.OpenResultset(ssql, rdOpenKeyset, rdConcurRowVer)
rs.Edit
.....
While Not cn.EOF
rs.MoveNext
Wend
rs.Close
cn.Close
End Sub

error:there is also the same error
I have checked my dsn,but,i haven't find set error,I use ASP can link DSN success.
why???

Follow Ups: