sql修改语句纳闷中。。。

大家帮我看看这数据库错在什么地方，我郁闷了好长时间不知哪错了
原因：
想修改表格中的内容，想右击有快捷菜单，然后指向哪条修改哪条，为什么到最后只能修改第一条？sql语句我都看过了应该没问题了呀，为什么查询多少条记录的时候说“。。未被指定？”明明语句都正确的呀，各位帮我看看吧，谢谢：)在线等
模块：
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
        On Error GoTo ExecuteSQL_error
        sTokens = Split(SQL)
    Set cnn = New ADODB.Connection
        cnn.Open ConnectString
    
    If InStr("insert,delete,update", UCase$(sTokens(0))) Then
        cnn.Execute SQL
        MsgString = sTokens(0) & "query successful"
    Else
        Set rst = New ADODB.Recordset
        rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
        
        Set ExecuteSQL = rst
        MsgString = "查询到第" & rst.RecordCount & "条记录"
    End IfExecuteSQL_exit:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Function
    ExecuteSQL_error:
    MsgString = "查询信息" & Err.Description
    Resume ExecuteSQL_exit
End FunctionPublic Function ConnectString() As String
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\ｹｫﾋｾﾐ｡ｼﾇ\GRZL.mdb;Persist Security Info=False"
End FunctionPublic Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function右击后修改程序：
Private Sub xiugai_Click()
    Dim intCount As Integer
     If flagEdit Then
        If frmGRZL.msglist.Rows > 1 Then
            gintMode = 2
            intCount = frmGRZL.msglist.Row
            frmGeRenZiLiao.txtSQL = "select * from GRZL where name='" & Trim(frmGRZL.msglist.TextMatrix(frmGRZL.msglist.Row, 1)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)      ''''''''''''''''''''''注意此处，查询不到记录，为什么？？
            frmGeRenZiLiao.Show
            
        Else
            Call tianjia_click
        End If
        
   end if
            
End Sub
代码如上，但就是查不到相关的那一条记录