Dim rs1 As New ADODB.Recordset sq1 = "select * from 系统管理" rs1.Open sq1, conn, adOpenKeyset, adLockPessimistic Do While Not rs1.EOF Combo1.AddItem rs1.Fields(0) ' & rs1.Fields(1) rs1.MoveNext Loop