请看这个小程序

Question

Private Sub Command2_Click()
 Dim Conn As New ADODB.Connection
 Dim Rst As New ADODB.Recordset
       Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=shiyan;Data Source=" & strserver & " "
       Conn.Open
       Rst.Open "SELECT * FROM user1 ", Conn, adOpenKeyset, adLockOptimistic
 Print Rst.Fields(0).Value
If Rst.Fields(0).Value = "user" Then
 c = MsgBox("cc")
End If
End Sub我建的数据库名是shiyuan，表名user。 两个字段user_id="user"(字符型)
Print Rst.Fields(0).Value  的值是 user
而却不显示c = MsgBox("cc")的效果
请问这是为什么？
 

Answer 1

Trim("user")也是过，可是还是那样

Answer 2

估计是表中的字段有空格，定义一个字符串变量
dim aaa as string
aaa = trim$(Rst.Fields(0).Value)
If aaa = "user" Then
 c = MsgBox("cc")
End If
End Sub