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’，参数类型不正确或不在可以……”错误，一直困扰没能解决，多多指教，再此先谢过了！

order by 商品级别,商品编号

“Text1(i).Enabled = False”楼主是要禁用？
图片看不到~

什么意思？

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

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

1）建议你检查变量rs1、cnn等变量的定义是否正确
2）rs1变量是否new过对象

adOpenKeyset, adLockPessimistic
你改成这个试试

楼主试试那个参数嘛，或者改为excute（）那种形式