请帮忙

Dim cnn As ADODB.Connection   '声明连接对象
Dim rs As ADODB.Recordset     '声明记录集对象
Dim MyPath As String     '用于存放路径
MyPath = App.Path        '设为本工程所在路径
'若非根目录,路径后面加"/"
If Right(MyPath,1) <> "/" Then MyPath = MyPath & "/"
 '建立与数据库的连接。
cnn.Provider = "Microsoft Jet OLEDB 4.0"   '指定提供者
'设置数据源（指定数据库）
cnn.ConnectionString = "Data Source = " & MyPath & "Student.mdb"
cnn.Open     '与数据库建立连接锁定类型：开放式记录锁定
rs.LockType = adLockOptimistic
'游标类型：键集游标,允许在记录集中进行所有类型的移动
rs.CursorType = adOpenKeyset
'设置记录集使用的连接对象为打开的Connection对象
Set rs.ActiveConnection = cnn
'设置记录集的记录源
rs.Source = "SELECT * FROM 学籍"
If rs.State = adStateClosed Then rs.Open
If rs.state = adStateOpen  Then rs.Close
If cnn.state = adStateOpen  Then cnn.Close
'此时并没有村内存中删除
'要想从内存删除,要执行
Set rs = Nothing
Set cnn = Nothing
rs.Open "SELECT * FROM 学籍" , cnn, adOpenKeyset, adLockOptimistic, adCmdText

'数据库在d:盘库名为""