代码如下: Dim Cmd As New ADODB.Command Dim conn As ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB;server=localhost;uid=sa;pwd=qlrj666;Initial Catalog=" & Text1.Text & "" conn.ConnectionTimeout = 50 conn.Open Set rs = conn.Execute("SELECT name FROM MASter..SysDatabASes ORDER BY name") conn.Close ‘---------------------------------------END 语句是获取数据库名称的 想返回到combo里 应该怎样弄! 感激!