VB向SQL sever表中调用数据问题

小弟要做一个数据库
该数据库用于存放不同参数下加注过程的最大温升Tmax及加气时间 t ，具体参数：车载气瓶的型号N、初始压力P1 、初始温度T1和充气结束时的压力力P1`以及固定储罐的初始压力P2和初始温度T2和环境温度T 
最终任务：编写程序，自动调用数据库中的相关数据，对最大温升及加气时间插值计算程序需要调用SQL数据库表中的第i列中最接近Texti.Text的两个数据赋值给两个参数，然后进行插值运算
插值运算想用要直接调用matlab中的interpn函数VB完全初学 几乎一窍不通 照着网站上的帖子和书随便写了点东西 请人看看有什么问题 或者全是问题。。Private Sub Command1_Click()
Dim N, N1, N2 ……As String
   Dim myDbOper As New DbOperation
   Dim rst As ADODB.Recordset
   Dim sql As String
   myDbOper.DB_Connect
sql = "select top 1 * from wensheng and N>='" + Trim(Text1.Text) + "'order by N  "
Set rst = myDbOper.querySQL(sql)
N1 = rst.Fields("N")
sql = "select top 1 * from wensheng and N<='" + Trim(Text1.Text) + "'order by N desc "
Set rst = myDbOper.querySQL(sql)
N2 = rst.Fields("N")sql = "select top 1 * from wensheng and P1>='" + Trim(Text2.Text) + "'order by P1  "
Set rst = myDbOper.querySQL(sql)
P11 = rst.Fields("P1")
sql = "select top 1 * from wensheng and P1<='" + Trim(Text2.Text) + "'order by P1 desc "
Set rst = myDbOper.querySQL(sql)
P12 = rst.Fields("P1")sql = "select top 1 * from wensheng and T1>='" + Trim(Text3.Text) + "'order by T1  "
Set rst = myDbOper.querySQL(sql)
T11 = rst.Fields("T1")
sql = "select top 1 * from wensheng and T1<='" + Trim(Text3.Text) + "'order by T1 desc "
Set rst = myDbOper.querySQL(sql)
T12 = rst.Fields("T1")……Dim Matlab As Object……End Sub