VB 数据库

我想在combox中显示数据表中的一列，可是语句cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;DRIVER=Microsoft Access Driver (*.mdb);SourceDB=" & path
一直出现变量或with变量未设置的错误

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim path As String
Private Sub Form_Load()
path = App.path + "\db1.mdb"
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;DRIVER=Microsoft Access Driver (*.mdb);SourceDB=" & path
cn.Open
rs.Open "select 编号 from info", cn
While Not rs.EOF
hun_c.AddItem rs!编号
rs.MoveNext
Wend
rs.Close
cn.Close
End Sub

你没有实例化cn,要加一句 set cn=new adodb.connection

还是不对，错误也没变

看这个