VB如何读取ACCESS记录和把TEXT控件的内容写入ACCESS

VB如何读取ACCESS记录和把TEXT控件的内容写入ACCESS
希望能详细点..最好能有完整点源码给我....

dim conn As New ADODB.Connection
dim ConnString As String
dim sql as string
Dim rs As New ADODB.Recordset
ConnString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & App.Path & "\数据库名.mdb;Jet OLEDBatabase Password=数据库密码"
If conn.state <> 1 Then
conn.Open (ConnString)
End If
sql="select * from 表名 where 关键字段名='" & Text8.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
text9.text=rs.rs.Fields(ID)

个人建议，access数据库用DAO最好，因为有部分的ADO属性在access里不能使用。以下是DAO的内容，楼上的是ADO的内容， '引用DAO，这是必须的 Set con = OpenDatabase(App.Path & "数据库名.mdb") '中间放数据库完整路径就行，如果数据库在程序目录下，直接用 app.Path & "数据库名.mdb" 1.你的第一个问题 strsql = "select * from 表名 " '读取access 表里的内容 Set rs = con.OpenRecordset(strsql) do until rs.eof '处理结果集的过程 rs.movenext loop 2.第二个问题 'strsql="update 表名 set 字段名='"& trim(text1.text) &"'where……" '把text内容写入数据库 'con.Execute(strsql) 如果还要完整点的，就把你数据库，表名，字段名都告诉我吧,QQ联系也行

private sub command2_click() dim cn as new adodb.connection dim rs as new adodb.recordset cn.open "driver={microsoft access driver (*.mdb)};dbq=access数据库路径" rs.open "select * from 表 where 查询条件", cn, adopenkeyset, adlockoptimistic rs.addnew rs.fields ("字段名")=text.text rs.update rs.close end sub