dim Txt As String
If IsDBNull(dr.GetValue(i)) Then
   Txt = ""
Else
   Txt = dr.GetValue(i)
End If
为什么不能象asp中直接读取呢,即使为空值也没有关系