最简单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