最简单VB连接access数据库程序

private cnn As New ADODB.Connection
private rs As New ADODB.Recordset
private sql As String

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/a.mdb;Persist Security Info=False"
cnn.Open
rs.ActiveConnection = cnn
rs.CursorType = adOpenStatic

 

sql="select * from student"

rs.open

 while  NOT rs.eof

           StuID=rs("ID").value

          rs.movenext

Wend

 

rs.close