希望各位帮忙看一下，谢谢！
Private Sub Display_Click()
    sqlstr = "select * from 成绩表"
    Data1.RecordSource = sqlstr
    Data1.Refresh
End Sub

Private Sub SeekName_Click()
    n = InputBox("请输入需查询的学生姓名：", "查询条件")
    If n <> "" Then
    sqlstr = "select * from 成绩表 where 姓名='" & n & "'"
    Data1.RecordSource = sqlstr
    Data1.Refresh
    If Data1.Recordset.RecordCount = 0 Then MsgBox "没有该学生的信息"
    Else
    MsgBox "你没有输入需查询的学生姓名！"
    End If
End Sub

Private Sub Form_Load()
  Data1.DatabaseName = App.Path + "\学生97.mdb"
  Data1.RecordSource = "成绩表"
  Data1.Refresh
End Sub

Private Sub SeekNumber_Click()
    xh = InputBox("请输入需查询学生的学号：", "查询条件")
    If xh <> "" Then
    sqlstr = "select * from 成绩表 where 学号='" & xh & "'"
    Data1.RecordSource = sqlstr
    Data1.Refresh
    If Data1.Recordset.RecordCount = 0 Then MsgBox "没有学号为" & xh & "的学生的成绩"
    Else
    MsgBox "你没有输入需查询的学生的学号！"
  End If
End Sub
 
用于显示的控件是MSFlexGrid1。
1，按姓名查询可执行，但为什么输入的姓名显示为繁体的？
2，按学号查询不能实现，显示“标准表达式中数据类型不匹配”，然后显示Data1.Refresh出错？
   

1、安装VB6SP5补丁就好了。
2、你的XH定义的是什么类型了？
看不到程序，不怎么好调试，

谢谢你！
我没有定义xh的类型。

整个程序：
有一个MSFlexGrid1控件
还有一个按姓名查询的按钮，一个按学号查询的按钮，以及显示全部的按钮。

“1，按姓名查询可执行，但为什么输入的姓名显示为繁体的？”，你输入的姓名显示繁体，是在Inputbox上面还是在MSFLexGrid1上面了？

谢谢你！
在inputbox上。

安装VB6SP5补丁就好了

谢谢你！
请问是在网上下载的吗？

恩，是的，不太，

谢谢你！关于第二个问题，你能不能也帮我看看呢？