呵呵,这么巧,我刚做成功的 我用的是ACCESS数据库 Private sub combobox1_click() dim str as string str = "select * from " + combobox1.text adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databsename.mdb;" adodc1.recordsource = str adodc.refresh End sub