VB中简单访问Access

在  工程->引用  中选上Microsoft ActiveX Data Object 2.8 Library

在  工程->部件  中选上Microsoft DataGrid Control 6.0(SP6)(OLEDB)显示数据控件

声明

Private Rs As New ADODB.Recordset

Private Conn  As New ADODB.Connection

 

使用

Dim str As String

str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:/look.mdb "

Conn.CursorLocation = adUseClient

Conn.Open str

Rs.Open "select * from student", Conn, adOpenDynamic, adLockReadOnly

Set DataGrid1.DataSource = Rs'显示