跪求 vb 读取数据库数据的问题

我有个access数据库 yansuan.mdb 表名: 钢丝绳
类别 绳径 破断拉力
6*19 18.5 33333
6*19 21.5 55555
6*7+1 18.5 44444
我想读取p=55555
rs.open "select 破断拉力 from 钢丝绳 where 类别= '"& combo1.text &"' and 绳径= '"& combo2.text &"'
p = rs.fields.Item(0)
这样错了 哭啊 我才学了数据库2天 跪求正解
小弟绝不吝啬分
程序代码如下:
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As String
strCnn = "provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\yansuan.mdb"
Set cnn = New ADODB.Connection
cnn.Open strCnn
Set rs = New ADODB.Recordset
rs1 = "SELECT 钢丝绳自重(kg/m) FROM 钢丝绳 where 钢丝绳类型= '" & Combo1.Text & "'and 钢丝绳绳径='" & Combo2.Text & "'"
qs = Val(rs1)
请问错在什么地方

你原来的语句中既有双引号，也间单引号，还真不容易看清楚，我把单引号和双引号间加了空格才看出来
rs.open "select 破断拉力 from 钢丝绳 where 类别= ' " & combo1.text &" ' and 绳径= ' " & combo2.text & " '
从形式上看，是最后那个单引号应该是一个独立的字符串，但你的却不是

把这句改成
rs.open "select 破断拉力 from 钢丝绳 where 类别= ' " & combo1.text & " ' and 绳径= ' " & combo2.text & " ' "

而且我觉得还有问题的是：你的绳径我不知道是什么类型，如果是数值型的，那么在查询时，其内容常量是不该被引号引起来的，如果是这样，上句该改成：
rs.open "select 破断拉力 from 钢丝绳 where 类别= ' " & combo1.text & " ' and 绳径= " & combo2.text

你的text1的数据不可修改也许是因为数据绑定的原因，如果不是绑定数据，就可以修改了

SQL查询 语句支持汉字吗？
貌似您的判断条件不对
where 绳经=21.5
试试 ！

Private Sub Command1_Click()
Dim cnn As new ADODB.Connection
Dim rs As new ADODB.Recordset
DIM strcnn as string
strCnn = "provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\yansuan.mdb"
cnn.Open strCnn