请问应如何添加数据.
我在做一个添加数据的功能,代码如下,当运行到*****句时出错,
错误信息是“未将对象引用设置到对象的实例。”请问何解。谢谢
Dim connLStock As New SqlConnection(strConn)
Dim strLStock As String
Dim adLStock As New SqlDataAdapter()
Dim dsLstock As New DataSet()
With adLStock
****** .SelectCommand.CommandText = "SELECT * FROM LeechdomStock"
.SelectCommand.Connection = connLStock
connLStock.Open()
.Fill(dsLstock, "tblStock")
End With
Dim tblStock As DataTable = dsLstock.Tables("LeechdomStock")
Dim dr As DataRow = tblStock.NewRow
dr("LeechdomID") = ComboBox1.Text.Trim
dr("Factory") = TextBox2.Text.Trim
dr("EntryDate") = DateTimePicker1.Value
dr("ValidDate") = DateTimePicker2.Value
dr("TotalCharge") = TextBox3.Text.Trim
dr("TotalNice") = TextBox3.Text.Trim
dr("Price") = TextBox4.Text.Trim
dr("Nice") = TextBox5.Text.Trim
dr("Packge") = TextBox6.Text.Trim
dr("Specs") = TextBox7.Text.Trim
dr("FormNo") = TextBox8.Text.Trim
dr("Place") = TextBox9.Text.Trim
dr("Provider") = TextBox10.Text.Trim
dr("TradeMark") = TextBox11.Text.Trim
dr("LicenceNo") = TextBox12.Text.Trim
dr("Facies") = TextBox13.Text.Trim
dr("PackgeQuality") = TextBox14.Text.Trim
dr("Verdict") = TextBox15.Text.Trim
dr("Memo") = TextBox16.Text.Trim
tblStock.Rows.Add(dr)
connLStock.Close()