关于CBO连接到数据库的某一字段的问题

Question

事情是这样的:我现在有一个数据库CP.我想把PINMING字段的内容灌到CBO控件的列表中去.使用以下的程序不行,只把表中第一条记录灌了十几遍..高手可不可以告诉我为什么啊?可以不按我下面的代码写,只要能实现就可以.Set cnn1 = New ADODB.Connection
strcnn = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=\\SERVER6500\database\sale.mdb"
cnn1.Open strcnn
Set rstpm = New ADODB.Recordset
rstpm.Open "cp", cnn1, , , adCmdTable
rstpm.MoveFirst
 l = 0
     Do Until rstpm.EOF
     l = l + 1
     rstpm.MoveNext
     Loop
j = l
ReDim add(j)
For i = 0 To l - 1
rstpm.MoveFirst
add(j) = rstpm!pinming
cbo_pm1.AddItem add(j)
rstpm.MoveNext
i = i + 1
j = j - 1
Next

Answer 1

    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockReadOnly
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop

Answer 2

rstpm.Open "select * from cp", cnn1, adOpenDynamic, adLockReadOnly
    Do Until rstpm.EOF
        cbo_pm1.AddItem rstpm.Fields("pinming")
        rstpm.MoveNext
    Loop

Answer 3

rstpm.Open "select * from cp", cnn1, adOpenDynamic, adLockReadOnly
    Do Until rstpm.EOF
        cbo_pm1.AddItem rstpm.Fields("pinming")
        rstpm.MoveNext
    Loop