Public Sub SaveData(ByVal DSet As DataSet)
Dim j As Integer
AdapterCommands()
For j = 0 To DSet.Tables.Count - 1
Try
_Adp.Update(DSet.Tables(j))
Catch ex As SqlException
MsgBox(ex.Message)
End Try
Next
End Sub

Private Sub AdapterCommands()
Dim ss As String = "select * from titles"
_CommandBuild = New SqlCommandBuilder(_Adp)
_Adp.SelectCommand = New SqlCommand(ss, _Con)
With _Adp

.UpdateCommand = _CommandBuild.GetUpdateCommand
.DeleteCommand = _CommandBuild.GetDeleteCommand
.InsertCommand = _CommandBuild.GetInsertCommand
End With
End Sub

1. אנחנו לא נדע. אתה זה שאמור לדעת מה לא עובד. או לפחות מה זה אמור לעשות. אנחנו לא נבזבז את הזמן בלדבאג לך את הקוד כדי לזהות מה לא תקין, כאשר אנחנו לא יודעים לאן הוא שייך ביכלל ומה אתה מנסה לעשות.
2. ולהבא תציין באיזו שפה אתה כותב. (אתה היית אמור לכתוב VB.NET)...