vb 中创建Connection对象，该怎么做

Public MyConnection As New ADODB.Connection '定义数据库对象
Public MyRecordset As New ADODB.Recordset '定义记录集对象
Public DBName As String '定义数据库名称变量
Public Status As Boolean '定义连接数据库的状态变量
Private Sub Form_Load()
Dim sql As String '生成表上面部分的字符
DBName = App.Path & "\db1.mdb" '数据库路径
'设置连接的属性
With MyConnection
.Provider = "Microsoft.Jet.OLEDB.4.0" '连接引擎
.Mode = adModeShareExclusive '独占打开
.Open DBName '打开数据库
End With
Set MyRecordset = Nothing '让结果集等于空
sql = "SELECT * FROM tab_dept AS t" '为查询部门数定义SQL
'设置结果集的各种属性
With MyRecordset
.ActiveConnection = MyConnection
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.Open sql, MyConnection, , , adCmdText
End With
Set