老师帮帮我吧 谢谢了<br/>我想设计一个数据库.前面的条件连接到别的数据库,可以显示的, 再点击确定按钮后, 切削深度\ 每齿进给量 \切削速度 会显示结果.但我不知道错在那里 ，结果怎么为零呢<br/>Private Sub Command1_Click()<br/>Dim a As Single <br/>Dim b As Single <br/>Dim c As Single <br/>Dim d As Single <br/>Dim m As Single <br/>Dim n As Single <br/>Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\任雪艳\任雪艳毕设\切削用量表.mdb;Persist Security Info=False" <br/>Adodc1.RecordSource = "select * From 切削用量表 where 刀具名称='" + Text1.Text + "' And 刀具材料 ='" + Text2.Text + "' And 刀具直径=" + Text3.Text + " And 刀具齿数 =" + Text4.Text + " and 工件牌号='" + Form6.Text3.Text + "'" <br/> Adodc1.Refresh <br/> DataGrid1.Refresh <br/> On Error Resume Next <br/>a = Adodc1.Recordset!切削深度 <br/>c = Adodc1.Recordset!每齿进给量 <br/>m = Adodc1.Recordset!切削速度 <br/> Do <br/> Adodc1.Recordset.MoveNext <br/> b = Adodc1.Recordset!切削深度 <br/> d = Adodc1.Recordset!每齿进给量 <br/> n = Adodc1.Recordset!切削速度 <br/> If a < b Then <br/> a = b <br/> c = d <br/> m = n <br/> End If <br/>Loop While Not Adodc1.Recordset.EOF <br/> Adodc1.Refresh <br/> DataGrid1.Refresh <br/> Text10.Text = a <br/> Text8.Text = m <br/> Text9.Text = c <br/>