Private Sub Form_Load()

创建连接，并打开

Set con = New ADODB.Connection

con.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0 Data Source=C:\Users\lenovo\Desktop\学生选课系统\db1.mdb Persist Security Info=False

con.CursorLocation = adUseClient

con.Open

End Sub-Private Sub Form_Load()

　 创建连接，并打开

　　Set con = New ADODB.Connection

　　con.ConnectionString =　Provider=Microsoft.Jet.OLEDB.4.0 Data Source=C:\Users\lenovo\Desktop\学生选课系统\db1.mdb Persist Security Info=False

　　con.CursorLocation = adUseClient

　　con.Open

End Sub