请老师看代码
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
   Dim ii As Integer
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=888888;Data Source=" + App.Path + "\简历.mdb;Persist Security Info=False"
   Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
 rs.Open "select * from 简历表 where 编号 = '" & 编号.Text & "'And 姓名='" & 姓名.Text & "'", conn, 1, 1

Do Until rs.EOF
    For i = 1 To 4
        Text1(i).Text = Text1(i).Text & rs(i) & vbCrLf
    Next
    rs.MoveNext
Loop
rs.Close
 
End Sub

不知道应该怎么改啊，还有如何将TEXT1(1)-text1(6)写入数据库的列呢？或者请老师教我一个更好的办法，将一个人的全部简历用textbox写好以后一次性存入数据库

[此贴子已经被作者于2019-9-8 22:56编辑过]

写入与读出不是一回事，读取数据根据读取数据的多少，采用的数据显示控件是不同的。
读取一条记录可以使用文本框，例如你的 TEXT1(1)-text1(6) ，但读取多条记录一般采用数据显示控件，例如 MSHFlexGrid 控件。
写入数据是将数据写入到数据表中，一般采用文本框中数据写入数据表。
抽时间给你做一个。

今天给你做了一个：

看看是不是你需要的。

[此贴子已经被作者于2019-9-18 12:49编辑过]

今天给你做了一个：


看看是不是你需要的。

老师：
     不是的，我是需要将TEXT控件组读取和存入，也就是同时存入多个text控件组的内容。