vb 数据库 的操作解决思路

vb 数据库 的操作
今天初学 数据库，用的是ADO 对象， 将数据库读入到 listview 中
问题1: 数据库里，有的数据为空，因此不能读入，shuo = rs.Fields(2)，data.SubItems(2) = shuo
问题2：总函数不清楚，我是用的  for i=0 to 100 来读入数据的，而100  是小于 总行数的
       而 用  for i=0 to n ,  n=rs.Count   出错
                              n=rs.MaxRecords   n却为 0 
                              n = rs.RecordCount  n为  -1

请问各位一下，这是怎么一回事，在下 是初学者，请海涵！
[解决办法]
连接的cursorlocation属性必须设置为aduseclient
[解决办法]
问题1: 数据库里，有的数据为空，因此不能读入==>

shuo =iif(isnull（rs.Fields(2)，0，rs.Fields(2)）
data.SubItems(2) = shuo

问题2：总函数不清楚，我是用的 for i=0 to 100 来读入数据的，而100 是小于 总行数的
  而 用 for i=0 to n , n=rs.Count 出错
  n=rs.MaxRecords n却为 0  
  n = rs.RecordCount n为 -1
listview1.list
==>
with rs
if .recordcount>0 then
.movefirst
while not .eof
Private Sub Form_Load()
    ListView1.ListItems.Add , , iif(isnull（.Fields(2)，0，.Fields(2)）
End Sub

.movenext
wend
end if
end with

[解决办法]
问题1: 数据库里，有的数据为空，因此不能读入==>

shuo =iif(isnull（rs.Fields(2)，0，rs.Fields(2)）
data.SubItems(2) = shuo

问题2：总函数不清楚，我是用的 for i=0 to 100 来读入数据的，而100 是小于 总行数的
  而 用 for i=0 to n , n=rs.Count 出错
  n=rs.MaxRecords n却为 0   
  n = rs.RecordCount n为 -1
listview1.list
==>
with rs
if .recordcount>0 then
.movefirst
while not .eof
  ListView1.ListItems.Add , , iif(isnull（.Fields(2)，0，.Fields(2)）
.movenext
wend
end if
end with

上面那个错误了
[解决办法]
问题1：shuo = rs.Fields(2) & ""
问题2：连接设置成客户端游标，for i=1 to rs.count

[解决办法]
http://download.csdn.net/detail/veron_04/3827200
http://download.csdn.net/detail/veron_04/3154111