Larry,

This is VB, which is not my strong point, but still I think we might need to know exactly which statement is causing the error. At first glance, I don't see anything wrong.

~~Bonnie

>Hi,
>
>I will paste my small code here..
>
> Public Function Save_Product(ByVal ds As DAL.DSMain) As DataSet
> Dim objDataSetChanges As DAL.DSMain = New DAL.DSMain()
> Dim myDS As DataSet
> objDataSetChanges = CType(ds.GetChanges(), DAL.DSMain)
> If (Not (objDataSetChanges) Is Nothing) Then
> Save_Dataset(objDataSetChanges)
> objDataSetChanges.AcceptChanges()
> End If
> End Function
>
>When I first the function it good but when i run again i got an error encountered
>Error:
>
>Object reference not set to an instance of an object.
>
> Private Sub Save_Dataset(ByVal ChangedRows As DAL.DSMain)
> Dim DA_Product As SqlDataAdapter = New SqlDataAdapter()
> Dim DA_ProductItem As SqlDataAdapter = New SqlDataAdapter()
> Dim DA_ProductAcc As SqlDataAdapter = New SqlDataAdapter()
>
> DA_Product.InsertCommand = cmdInsert_Product()
> DA_Product.UpdateCommand = cmdUpdate_Product()
> DA_Product.DeleteCommand = cmdDelete_Product()
>
> DA_ProductItem.InsertCommand = cmdInsert_ProductItem()
> DA_ProductItem.UpdateCommand = cmdUpdate_ProductItem()
> DA_ProductItem.DeleteCommand = cmdDelete_ProductItem()
>
> DA_ProductAcc.InsertCommand = cmdInsert_ProductAcc()
> DA_ProductAcc.UpdateCommand = cmdUpdate_ProductAcc()
> DA_ProductAcc.DeleteCommand = cmdDelete_ProductAcc()
>
>
> If (Not (ChangedRows) Is Nothing) Then
> Try
> SQLConn.SQLConn.Open()
> DA_Product.Update(ChangedRows, "Product")
> DA_ProductItem.Update(ChangedRows, "ProductItem")
> DA_ProductAcc.Update(ChangedRows, "Product Accessories")
> Catch ex As SystemException
> ChangedRows.RejectChanges()
> Throw ex
> Finally
> SQLConn.SQLConn.Close()
> End Try
> End If
>
> End Sub
>
>anybody can help me for this..
>
>
>TIA