我是一个新手,请大家帮忙

Question

我在加载如下一个窗体
Private Sub Form_Load()              '窗体载入
  Dim sql1 As String
  Dim i As Integer
  Dim conn As ADODB.Connection
  Dim rs1 As ADODB.Recordset
  Set conn = New ADODB.Connection
  Set rs1 = New ADODB.Recordset
  Dim sConnString As String
  sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
  conn.Open sConnString
  sql1 = "select distinct TxtSerisName from picture"
  rs1.Open sql1, conn, 3, 3
  i = 0
  While Not rs1.EOF
    CboSerisName.List(i) = rs1("TxtSerisName")
    rs1.MoveNext
    i = i + 1
  Wend
  CboSerisName.Text = CboSerisName.List(i - 1)
但一运行,cpu使用率就100%了.就无法进行下去了,但运行别的vb程序就没事,请问是怎么回事啊?

Answer 1

在
While Not rs1.EOF
    CboSerisName.List(i) = rs1("TxtSerisName")
    rs1.MoveNext
    i = i + 1
Wend
的前面加上rs1.MoveFirst