datagrid.datasource=nothing 后,再想通过手工往里面填数据怎么不行啊？

Question

Private Sub Form_Load()
Set adors = GetRecordSet("select * from zl_Products")
If (adors.RecordCount > 0) Then
   Set dg_main.DataSource = adors
Else
    Set dg_main.DataSource = Nothing
End If
End Sub
这是赋值代码，当数据库中没有数据时
Set dg_main.DataSource = Nothing
然后窗口中的dg中显示一行空的，我设置了dg的属性为allowaddnew allupdate为true
可以却不可以编辑，
如果开始时数据库里有东西就可以，这个怎么解决啊？还有就是VB所有控件的用法哪里有啊？

Answer 1

Private Sub Form_Load() 
Set adors = GetRecordSet("select * from zl_Products") 
Set dg_main.DataSource = adors 
End Sub 

Answer 2

如1楼所说那样赋值就可以了If (adors.RecordCount > 0) Then 
  Set dg_main.DataSource = adors 
Else 
    Set dg_main.DataSource = Nothing 
End If 
这个判断是画蛇添足，Set dg_main.DataSource = Nothing后是不能对datagrid操作的，除非你再指定到一个Rst.