Private Sub Form_Activate()
    Combo1.AddItem ("1级")
    Combo1.AddItem ("2级")
    Combo1.AddItem ("3级")
    Combo1.ListIndex = 0
    rs1.Open "select * from 商品基础信息表 order by 商品级别,商品编号", cnn, adOpenKeyset, adLockOptimistic
    If rs1.RecordCount > 0 Then
        For i = 1 To 12
            If rs1.Fields(i) <> "" Then Text1(i).text = rs1.Fields(i)
            Text1(i).Enabled = False
        Next i
    End If
    rs1.Close
    Call tree_change
    ComSave.Enabled = False
End Sub

每次调试到相关这处，都出现这种“实时错误‘3001’，参数类型不正确或不在可以……”错误，一直困扰没能解决，多多指教，再此先谢过了！

什么意思？

texti(i)的内容只显示，不能输入啊

前面那张图片只是错误显示的截图，这张是调试时显示的黄色区域