Dim cnn As ADODB.ConnectionDim rs As ADODB.Recordsetstrcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb.mdb"Set cnn = New ADODB.Connectioncnn.Open strcnnSet rs = New ADODB.RecordsetCombo1.Clear'=======================================本段给combo1控件赋值If rs.StateadStateClosed Then rs.Closers.Open "se...