vb用ado数据库做选型软件的问题，简单问题，求高人指点代码

[angrycoco]

简单描述下内容

需要做一个泵的选型软件

现在我建好了一个泵型号access数据库，里面有泵的名称，流量Q，扬程H三个数据

数据表很小，几十条数据

现在已经用ado方法连接了数据库

没学过vb临时要求自学vb做程序，感觉有些东西不能理解

跟着书上的例子做，感觉很简单，但是做了半天不能得到想要的效果

特来求大家帮忙，附上图



要求程序能根据输入的流量，扬程的数值，点击command1

选择出流量，扬程两者误差均在+10%范围内所有的数据库中泵的型号

就这一个要求

求各位高人给出点代码指点下，如果有完整代码能发的话希望给点注释我想学习下（数据库你可以随便写点数据）

如果代码好写的话还希望给个更新数据库数据的功能（不是很重要，方便的话希望能提供）

感激不尽

[一如既往哈]

够懒的，至少要先贴上你自己的代码吧。

Private Sub Command1_Click()
    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\beng.mdb;Persist Security Info=False"
        .CommandType = adCmdText
        Dim L As Single, H As Single
        L = CSng(Text1.Text) ''流量
        H = CSng(Text2.Text) ''扬程
        .RecordSource = "select * from beng where liuq>=" & L * 0.9 & " and liuq<=" & L * 1.1 & " and yangch>=" & H * 0.9 & " and yangch<=" & H * 1.1
        .Refresh
    End With
End Sub

ps:对于Adodc1不要设置任何属性。

[liufenghuaqq]

补充一句 Set MSHFlexGrid1.DataSource = Adodc1.Recordset 程序员是有明确的需求写程序的，你这么模糊，我们咋知道写什么上去啊

[angrycoco]

引用 1 楼 Topc008 的回复:

够懒的，至少要先贴上你自己的代码吧。

Private Sub Command1_Click()
    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\beng.mdb;Persist Security Info=False"
        .CommandType = adCmdText
        Dim L As Single, H As Single
        L = CSng(Text1.Text) ''流量
        H = CSng(Text2.Text) ''扬程
        .RecordSource = "select * from beng where liuq>=" & L * 0.9 & " and liuq<=" & L * 1.1 & " and yangch>=" & H * 0.9 & " and yangch<=" & H * 1.1
        .Refresh
    End With
End Sub

ps:对于Adodc1不要设置任何属性。

主要就是select那句话没写对，之前少了好多“”和& 感谢。 顺便问下大师。。能再帮忙写段二次函数拟合的语句吗 输入x（），y（）数组，5个数据每组 要求能拟合出ax^2+bx+c中的abc参数