谁能帮我说下这个出现在什么地方呀

Question

我不知道为什么我表中有我输入的姓名但还是不会执行IF语句.这里是为什么呀.无论我输入的姓名在表中有不有都不执行IF里的语句各位帮忙分析一下呀
tesql = "select * from CTSbal where 姓名='Trim(Text1.Text)'"
If CTSselect(tesql) Then
MsgBox ("有此人以存在")
yhszform.Text1.SetFocus
Exit Sub
End If
Public Function CTSselect(CTSstring As String) As Boolean
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
CTSchar = Trim(CTSstring)
cn.ConnectionString = "DSN=CTS_tsxt;UID=sa;PWD=;"
cn.Open
Set rst.ActiveConnection = cn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open CTSchar
If rst.EOF = True Then
CTSselect = False
Else
CTSselect = True
End If
End Function

Answer 1

tesql = "select * from CTSbal where 姓名='" & Trim(Text1.Text) & "'"

Answer 2

tesql = "select * from CTSbal where 姓名='" &Trim(Text1.Text) & "'"
If CTSselect(tesql) Then
MsgBox ("有此人以存在")
yhszform.Text1.SetFocus
Exit Sub
End If
Public Function CTSselect(CTSstring As String) As Boolean
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
CTSchar = Trim(CTSstring)
cn.ConnectionString = "DSN=CTS_tsxt;UID=sa;PWD=;"
cn.Open
Set rst.ActiveConnection = cn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open CTSchar
If rst.EOF = True Then
CTSselect = False
Else
CTSselect = True
End If
End Function

Answer 3

tesql = "select * from CTSbal where 姓名='" & Trim(Text1.Text) & "'"

Answer 4

tesql = "select * from CTSbal where 姓名='"+Trim(Text1.Text)+"'"