[求助]：请问在vba里listbox控件怎么总是有问题？

laoxie_1983

我在vb6.0里面没问题怎么到vba里就不行了呢？百思不其解！！
Private Sub UserForm_Layout()
Dim sjk As New ADODB.Connection
Dim sjklj As String
Dim dwzd As New ADODB.Recordset
Dim dwjs As Double
Dim zd() As String
sjklj = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=hbcad"
sjk.Open sjklj
dwzd.Open "select aa=count(dwid) from tyname", sjk, adOpenDynamic, adLockBatchOptimistic
If Not dwzd.EOF Then
  dwjs = dwzd.Fields("aa")
End If
dwzd.Close
dwzd.Open "select * from tyname", sjk, adOpenDynamic, adLockBatchOptimistic
ReDim zd(dwjs) As String
i = 0
Do While Not dwzd.EOF
  i = i + 1
  zd(i) = dwzd.Fields("dwname")
  dwzd.MoveNext
Loop
For j = 0 To i
  ListBox1.List(j) = zd(j + 1) '此处总是提示“无法获取list属性、属性阵列索引无效
Next j

End Sub

zhuxuhong

用listbox1.additem zd(j+1)

laoxie_1983

谢谢楼上的朋友