标题：关于姓名首字母模糊查询如何实现的问题

如何实现姓名、身份证号码、备注、单位等模糊查询已实现，就是以下代码：

Dim txt As String = e.Form.Controls("TextBox10").Text
Dim tbl As Table = Tables("退休人员信息11")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "姓名 Like " & txt & " Or 身份证号码 Like " & txt & " Or 备注 Like " & txt & " or 单位 like " & txt
End If

如何得到姓名的首字母也已知道

dim xm as string

dim s  as string

with tables("表名")

xm= .current("姓名")

s = getpy(xm.true)

end with

但是2者如何结合才能实现姓名首字母的模糊查询，我不知道如何写，请高手给写个代码，先谢了！