现有四个io域，io1，io2，io3用来显示access的score表中的3个字段值，io4用来输入进行查询，以下是代码：
Dim str
Dim cn
Dim rs
Dim mdata
Dim sql
Dim value1
Dim value2
Dim value3
Dim value4
Set value1=HMIRuntime.Tags("A")
Set value2=HMIRuntime.Tags("B")
Set value3=HMIRuntime.Tags("C")
Set value4=HMIRuntime.Tags("D").Read
Set str=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
sql="select * from score where 学号="& valuE4 &""
'sqL="select * from score"
cn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\学生数据库.mdb;Persist Security Info=False"
str.OPen cn
SEt rs=str.Execute(sQl)
Set Mdata=ScreenItems("MSHflexGrid1")
Set mData.RecoRdset=rs
value1.Value=rs.Fields(0).Value
value2.Value=rs.Fields(1).Value
value3.Value=rs.Fields(2).Value
value1.Write
value2.Write
value3.Write
现在存在的问题：
1、MSHflexGrid1只显示score表中的第一行
2、io1，io2，io3只显示score表中的第二行的字段值
3、不能实现查询，老提示sql="select * from score where 学号="& valuE4 &""这条语句有错误：缺少对象: '[string: "数学"]（假如io4中输入“数学”查询）
请各位帮忙看看！