我这个text1是温度  text2是密度，我想调用数据库，输入温度就可以直接在text2里显示密度，总是出现 标准表达式中数据类型不匹配，我刚学vb，求教各位大神，拜托拜托！！！
Private Sub Text1_Change()
 Dim sql As String
 conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\设计计算.mdb;Persist Security Info=False"
 conn.Open
  Set rs.ActiveConnection = conn
  sql = "select * from [温度—密度表] where [温度]= " & Text1.Text + " "

 rs.Open sql
 If rs.EOF Then
   MsgBox "没有该温度"
 Else
  Text2.Text = rs.Fields("密度kg/m3")
End If

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

温度 在数据库里是设的 数据型吗？ 是的话 要把 sql里text1.text 变成数据型  ，改成 val（text1.text）

我数据库里都是设的文本型，但是输入的是数字

sql = "select * from [温度—密度表] where [温度]=' " & Text1.Text & "'"  ,那温度等号后要加单引号,告诉sql这个是个字符,'用英文的',我打不出来

非常感谢！！！
sql = "update [设计计算] set [管段编号]= '" & Text1.Text & " ',[设计风量(m3/h)]= '" & Text2.Text & " ',[管长(m)]= '" & Text3.Text & " ',[比摩阻]= '" & Text4.Text & " ',[局部阻力系数]= '" & Text5.Text & " ' where [管段编号]= " & Text1.Text

你知道这个是怎么了嘛？也是数据类型不匹配

sql = "update [设计计算] set [管段编号]= '" & Text1.Text & " ',[设计风量(m3/h)]= '" & Text2.Text & " ',[管长(m)]= '" & Text3.Text & " ',[比摩阻]= '" & Text4.Text & " ',[局部阻力系数]= '" & Text5.Text & " ' where [管段编号]= '" & Text1.Text & " '"
我弄出来啦，谢谢！！