浙江高考理科名次:我是菜鸟 请大虾门 帮一下

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 19:55:46
Private Sub Form_Load()

Private CONN As Adodb.Connection '定义ADO CONNECTION对象
Private RS As Adodb.Recordset '定义ADO RECORDSET对象

Set CONN = New Adodb.Connection

CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jj\ADO.eg;Persist Security Info=False"

CONN.Open

Set RS = New Adodb.Recordset

With RS Do
ActiveConnection = CONN
CursorType = adOpenDynamic
LockType = adLockOptimistic
End With

Set RS = Nothing
CONN.Close
Set CONN = Nothing
End Sub
这个程序 哪里有错