Dim strSQL, str1 As String
Dim ADOrs As New Recordset

ADOrs.ActiveConnection = ADOcn
strSQL = "select * from phone"
ADOrs.Open strSQL

str1 = "联系人" + vbTab + "QQ" + vbTab + "手机" + vbTab + "座机" + vbTab + "出生日期"
With MSFlexGrid1
.Clear
.Rows = 0
.Cols = 5
.AddItem str1
Do While Not ADOrs.EOF
str1 = ADOrs.Fields(0) + vbtab+ADOrs.Fields(1)'这儿为什么说adors.fields(1)是NULL,我明明定义了4个字段呀
.AddItem str1
ADOrs.MoveNext
Loop
.FixedRows = 1
End With

嗯,对呀,我没给字段设值
难道不设置就要出错?
非要设值不能为空吗?
怎么解决?