VB recordset 记录集不存在 问题

Dim sline As Integer
Dim szhanming As String
Dim szengzhang As Integer
szhanming = InputBox("请输入到站名", "到站")
sline = InputBox("请输入线路", "线路")
szengzhang = InputBox("请输入增长量", "增长量")
Dim cnn2 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn2 = New ADODB.Connection
cnn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hh2.mdb;Persist Security Info=False"
cnn2.Open
Set rs1 = New ADODB.Recordset
rs1.Open "select chehao,precent1,precent2 from zengzhang where line=" & sline & "and zhanming='" & szhanming & "'order by chehao desc", cnn2
rs1.MoveFirst
Do While Not rs1.EOF
a1 = rs1.Fields("chehao")
a2 = rs1.Fields("precent1")
a3 = rs1.Fields("precent2")
rs1.MoveNext
If rs1.Fields("chehao") = a1 Th

VB用Data1.Recordset.AddNew为什么只是更新原有记录？ VB操作Access数据库，获得Recordset记录集后，如果将其直接更新到数据库 关于VB Recordset 的属性 ADODB.Recordset 修改记录的方法 Recordset么意思 vb里问题 vb 连接sql数据库中recordset问题 vb中recordset以及打印的问题 recordset VB中recordset移动-〉删除-〉插入新纪录问题 vb编程中ADO中RECORDSET中Fields的问题