Question

vb要在combox中显示数据库中一个表的某一项怎么写代码啊？高手帮忙 急！急！急！

1.我的数据库名字是db1，表的名字是dl，要窗体运行时在combox中显示表dl里的yhm一项。
2.添加一个按钮，在combox选中一项时，单击按钮就能在数据库里删除该项。
谢谢！第一个问题是ok了！但是第二个还不行！第二个是要在数据库里删除！我能把数据在combobox里删除！但是数据库里还有啊！怎么能让它连同数据库里的数据一块删除啊？请教了！

Answer 1

二、
strSQL = "select * from dl where yhm='" & combo1.text & "' "
RS.Open strSQL, db, 3, 3
RS.Delete
RS.CLOSE
SET RS=NOTHING

一、
Dim db As New ADODB.Connection
Dim RS As New ADODB.Recordset

Private Sub Form_Load()
Combo1.Clear
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\db1.mdb"
db.Open
strSQL = "select * from dl Order By yhm"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo1.AddItem RS("yhm")
RS.Movenext
Loop
RS.Close
db.Close