SQL数据库中建立“读写数据库”，表名为“个人信息”，字段为：编号、姓名、年龄。
如何实现在只输入编号就可以显示对应的编号、年龄、姓名。但是按如下代码并没有实现功能，求大神指导

代码如下：
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim data1
Dim data2
Dim data3
Dim data4
Dim data5
Dim data6
Dim data7

data7=HMIRuntime.Tags("编号").Read

Con="Driver={SQL Server};Server=.\WINCC;uid=;pwd=;database读写数据库"

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString=Con

conn.CursorLocation=3

conn.Open

sSql="SELECT * FROM 个人信息 WHERE 编号='"&data7&"';"

Set oRs=CreateObject("ADODB.Recordset")

Set oCom=CreateObject("ADODB.Command")

Set oCom.ActiveConnection=conn

oCom.CommandType=1

oCom.CommandText=sSql

Set oRs=oCom.Execute

data4=oRs.Fields(0).Value

data5=oRs.Fields(0).Value

data6=oRs.Fields(0).Value

Set data1=HMIRuntime.Tags("编号")

Set data2=HMIRuntime.Tags("姓名")

Set data3=HMIRuntime.Tags("年龄")

data1.Read

data1.Write data4

data2.Read

data2.Write data5

data3.Read

data3.Write data6

Set oRs=Nothing

conn.Close

Set conn=Nothing