VBA窗体数据存到数据库位置错位怎么解决？

拒绝笑脸2022

On Error Resume Next
Dim uADO, rsADO As Object
Dim strPath, strSql As String
Dim n As Integer, ri As Integer
Set uADO = CreateObject("ADODB.Connection") '新建数据库连接对象
Set rsADO = CreateObject("ADODB.RecordSet") '新建记录集对象
strPath = Sheet3.Range("g2") '设置数据库地址
uADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath '打开数据库
strSql = "Select * From 基础信息 where 设备编码='" & TextBox6 & "'" '设置查询语句
rsADO.Open strSql, uADO, 1, 3 '执行查询
rsADO.MoveLast
k = rsADO.RecordCount

If k = 1 Then
  MsgBox "当前设备编码已存在，请确认后再输入！"
    TextBox0201.SetFocus
      TextBox0201.SelStart = 0
        TextBox0201.SelLength = 30
          GoTo 339
End If

rsADO.Open strSql, uADO, 1, 3 '执行查询
rsADO.MoveLast
rsADO.AddNew
rsADO.Fields(1) = TextBox0201      '设备编码
rsADO.Fields(2) = TextBox0202      '设备名称
rsADO.Fields(3) = TextBox0203      '设备参数
rsADO.Fields(4) = TextBox0204      '防爆标志改
rsADO.Fields(5) = TextBox0205      '防爆证号改
rsADO.Fields(6) = TextBox0206      '煤安证号改
rsADO.Fields(7) = TextBox0207      '出厂编号改
rsADO.Fields(8) = TextBox0208      '生产日期改
rsADO.Fields(9) = TextBox0209      '生产厂家改
rsADO.Fields(10) = TextBox0210     '安装日期改
rsADO.Fields(11) = TextBox0211     '安装位置改
rsADO.Fields(12) = TextBox0212     '安装位号改
rsADO.Fields(13) = TextBox95       '配件代码
rsADO.Fields(14) = TextBox0214     '维护周期
rsADO.Fields(15) = TextBox0215     '预警时间
rsADO.Fields(16) = TextBox13       '图片地址
rsADO.Fields(17) = TextBox0216     '备注


实际存储时候第14列内容存储到了第16列，第15列内容存储到第17列；
第16列内容存储到了14列，第17列内容存储到了第15列。请问怎么解决

f8b1987

位置错了，就是调整数字，要不然改=后面的