Dim conn As ADODB.ConnectionSet conn = New ADODB.ConnectionDim rst As ADODB.RecordsetSet rst = New ADODB.Recordsetconn.Open "provider=microsoft.jet.oledb.4.0;data source=数据库名.mdb"rst.Open "select * from 表 where 条件", conn, 1, 3rst.Fields(1).Value = Label4.Caption ------fields(i),i为列,Label4.Caption 可换成text的内容或其它内容r...