求问一个关于VB数据库问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 02:24:20
使用VB读数据库时，通过ADO读数据库，连接字符串 connectionstring的值输入什么才能读ACCESS?
急需要用，谁回答的好的话我再加分

'引用microsoft activex data object 2.x library
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
dim dbfilename as string
Set conn = New ADODB.Connection
dbfilename = "\\servername\aaa\ppl.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"

conn.Open ConnectString
conn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "select * from ppl", conn, adOpenDynamic, adLockPessimistic
If rs.EOF Then
Exit Sub

rs1.AddNew
rs1.Fields("mc") = Text1.Text
rs1.Fields("memo") = Text2.Text