？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？请来帮帮忙！！

[zhuwei5299]

Set connect = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
connect.Open "dsn"
中的dsn如何设置，我要打开服务器名为zw上的Access数据库，在c:/sg目录下，文件名
为：king.mdb,不能用控件

[lihonggen0]

Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码

With adoCNAccess1
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\sg\king.mdb"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
MsgBox "数据库连接失败，请找系统管理员进行检查 ！"
End
End If
End If
End With

[lihonggen0]

Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码

With adoCNAccess1
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\sg\king.mdb"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
MsgBox "数据库连接失败，请找系统管理员进行检查 ！"
End If
End If
End With