求助“未将对象引用设置到对象的实例”到底是什么意思？？？？崩溃中！！！

Question

各位前辈：
       小弟正在用VB2008写一个工作中用的查询工具，该工具中有很多模块，其中一个模块的代码是：但是运行时老是出现上图中的错误对话框！！！！折腾了三天了，也没明白是怎么个事！！
最让我郁闷的是：
这些代码中，除了code变量和“www”，其他的全都是我直接从其他模块中复制过来的，包括两个Imports。在其他模块中，代码运行一切正常！！！

Answer 1

Dim code As String
code = "select top 8 * from a2h4"
Dim objConnection_w As New SqlConnection("server=128.192.38.34;database=MyDataBase;user id=sa;password=123456")
MsgBox(objConnection_w Is Nothing)
Dim objDataAdapter_w As New SqlDataAdapter()
MsgBox(objDataAdapter_w Is Nothing)
Dim objDataSet_w As New DataSet()
MsgBox(objDataSet_w Is Nothing)
MsgBox(objDataAdapter_w.SelectCommand.Connection.ToString)
objDataSet_w.Clear()
objDataAdapter_w.SelectCommand.CommandText = code
objDataAdapter_w.Fill(objDataSet_w, "www")
主界面.DGV1.DataSource = objDataSet_w
主界面.DGV1.DataMember = "www"