标准表达式中的数据类型不匹配

运行时提示“标准表达式中的数据类型不匹配”

代码为：

Private Sub dataGrid1_Click()
    Dim strName As Long
    Dim strsql As String
    Dim rsttmp As New ADODB.Recordset
   
    '点击的是第一行或超出最大行时退出
    If dataGrid1.Row = 0 Or dataGrid1.Row > dataGrid1.Rows - 1 Then Exit Sub
   
    strName = dataGrid1.TextMatrix(dataGrid1.Row, 1)
   
    If Trim(strName) = "" Then Exit Sub
   
    strsql = "select * from 通讯录 Where id='" & strName & "'"
    rsttmp.Open strsql, conn, adOpenKeyset, adLockOptimistic
    If rsttmp.RecordCount = 1 Then
        rsttmp.MoveFirst
        txtName.Text = Trim("" & rsttmp!姓名)
        txtTel.Text = Trim("" & rsttmp!联系方式)
        txtAddress.Text = Trim("" & rsttmp!地址)
        txtclass.Text = Trim("" & rsttmp!类别)
        txtRemark.Text = Trim("" & rsttmp!备注)
        id.Text = Trim("" & rsttmp!id)
    End If

您好，看到您的问题将要被新提的问题从问题列表中挤出，问题无人回答过期后会被扣分并且悬赏分也将被没收！所以我给你提几条建议：
一，您可以选择在正确的分类下去提问或者到与您问题相关专业网站论坛里去看看，这样知道你问题答案的人才会多一些，回答的人也会多些。
二，您可以多认识一些知识丰富的网友，和曾经为你解答过问题的网友经常保持联系，遇到问题时可以直接向这些好友询问，他们会更加真诚热心为你寻找答案的。  `
三，该自己做的事还是必须由自己来做的，有的事还是须由自己的聪明才智来解决的，别人不可能代劳！只有自己做了才是真正属于自己的，别人只能给你提供指导和建议，最终靠自己。

您可以不采纳我的答案，但请你一定采纳我的建议哦！

虽然我的答案很可能不能解决你的问题，但一定可以使你更好地使用问问哦``!!!