请老师看代码
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编辑过]

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