【求助】想问这个VB代码应该怎么改？
If CboFields.Text = "类别" Or CboFields.Text = "单位" Then
Dim adorec4 As New ADODB.Recordset
adorec4.Open "select distinct " & CboFields.Text & " from tbabc", cnn, adOpenDynamic, adLockOptimistic
adorec4.MoveFirst
Do While Not adorec4.EOF
cbolb.AddItem adorec4.Fields(" & CboFields.Text & ") adorec4.MoveNext
Loop
adorec4.Close
end if
红色的地方为错误的~~应该怎么修改？
