da.Fill(ds)
Dim PicIP(),RoadNo As String
For i = 0 To ds.Tables(0).Rows.Count - 1
PicIP(i) = ds.Tables(0).Rows(i)(0).ToString.Trim()
RoadNo(i) = ds.Tables(0).Rows(i)(1).ToString.Trim()
Response.Write(PicIP(i))
Response.Write("<br>")
Response.Write(RoadNo(i))
Response.Write("<br>")
Next
Response.End

总是出错说“未将对象引用设置到对象的实例”
但是如果我改为：
Dim PicIP,RoadNo As String
PicIP = ds.Tables(0).Rows(i)(0).ToString.Trim()
RoadNo = ds.Tables(0).Rows(i)(1).ToString.Trim()
就会正常运行为什么？请大家指教多谢！

Dim Strmenuname(10)
Dim k As Integer = 0
Dim i As Integer
For i = 1 To 11
Strmenuname(k) = "a" & i
k = k + 1
Next

用动态数组实现
da.Fill(ds)
Dim RoadNo As String,PicIPAL As new ArrayList
For i = 0 To ds.Tables(0).Rows.Count - 1
PicIPAL.Add(ds.Tables(0).Rows(i)(0).ToString.Trim())
RoadNo(i) = ds.Tables(0).Rows(i)(1).ToString.Trim()
Response.Write(PicIPAL.item(i))
Response.Write("<br>")
Response.Write(RoadNo(i))
Response.Write("<br>")
Next
Response.End

问题解决了
是因为我定义的数组是没有确定长度的
所以在赋值之前要用ReDim确定长度才可以
多谢各位的帮助