Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dd.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "select * from 表名", cnn, adOpenDynamic, adLockPessimistic
If rs.RecordCount > 0 Then
Text1.Text = rs.Fields(0).Value
Text2.Text = rs.Fields(1).Value
Text3.Text = rs.Fields(2).Value
End If
End Subrb.addnew
rb.fields(INDEX)=MIN
..
RB.UPDATE
RB为ADODB.RECORDSET使用ado控件控件与数据源绑定....