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


红色的地方为错误的~~应该怎么修改？