Need help with SQL message I am getting in my VB code

[JimN1]

Error: Update requires a valid UpdateCommand when passed DataRow collection with modified rows.

This is a continuation of my previous table element update question. I am now getting the above error message. I need help with the format of the SQLAdapter.Upda te(DSet.Tables( 0)) command.
I have included my code below. The line is in bold text.

Imports System
Imports System.Reflection
Imports System.Text
Imports System.Collections
Imports System.Globalization
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
 
Module Module1
    'Global Defs
    Dim EDIConn As SqlConnection
    Dim AAConn As SqlConnection
    Dim SQLCmd As SqlCommand
    Dim SQLAdapter As SqlDataAdapter
    Dim trans As SqlTransaction
    Dim DSet As DataSet
    Dim DTable As DataTable
    Dim SQLQuery As String = ""
    Dim RecsAffected As Integer = 0
    Dim MyTimeout As String
    Dim connstring As String = "Integrated Security=SSPI; Data Source=" + vbCrLf + _
                               "SCSQLDEV; Initial Catalog = HIPAA_EDI;"
 
 
 
 
    Sub Main()
        EDIConn = New SqlConnection(connstring)
        EDIConn.Open()
        P010_Claim_Type_Selection()
        MsgBox("..What Does It Look Like? ..")
 
    End Sub
    Function P010_Claim_Type_Selection() As Boolean
 
        Dim h As Integer = 0
        Dim i As Integer = 0
        Dim drow As DataRow
 
P010_Select_Claims:
        Console.WriteLine("..P010_Select_Claims ..")
        SQLQuery = "SELECT *                                    " + vbCrLf + _
                   "  FROM Remit.Remit_Temp_Serv                " + vbCrLf + _
                   " WHERE Rmt_Svc_Clm_Num = '061009B02097'     " + vbCrLf + _
                   " ORDER BY Rec_Seq"
 
        If P920_LoadEDITable() Then
            DTable = DSet.Tables(0)
P010_Claim_Loop:
            Console.WriteLine("..P010_Claim_Loop ..")
            h = 0
            i = 0
            For Each drow In DTable.Rows
                If DTable.Rows(i)(63).ToString() = "-" Then
                    If h > 0 Then
                        h = i - 1
                    Else
                        h = 0
                    End If
                    Try
                        AddHandler SQLAdapter.RowUpdating, AddressOf OnRowUpdating
                        AddHandler SQLAdapter.RowUpdated, AddressOf OnRowUpdated
 
                        DTable.Rows(h)(12) = DTable.Rows(i)(12).ToString()   ' -- Tot_Paid_Amt
                        DTable.Rows(h)(59) = DTable.Rows(i)(59).ToString()   ' -- ClmChk_CPT
                        DTable.Rows(h)(61) = DTable.Rows(i)(61).ToString()   ' -- ClmChk_Bun
                        ' Will the following update the SQL table or does it need a command to execute?
                        'SQLAdapter.Update(DTable)
                        SQLAdapter.Update(DSet.Tables(0))
                    Catch ex As SqlException
                        Console.WriteLine("... Error UPDATING Temp Table: " & ex.Message & "...")
                        Console.WriteLine(".." & ex.Message & "..")
                        Console.WriteLine("... Error UPDATING Temp Table: " & ex.Message & "...")
                    End Try
                End If
                i = i + 1
 
 
            Next
        End If
 
P010_Return:
        Return P010_Claim_Type_Selection
    End Function
 
 
 
    Function P920_LoadEDITable() As Boolean
        Console.WriteLine("..P920_LoadEDITable ..")
 
        P920_LoadEDITable = True
        SQLCmd = New SqlCommand()
        SQLCmd.Connection = EDIConn
        SQLCmd.CommandText = SQLQuery
        SQLCmd.CommandType = CommandType.Text
        SQLAdapter = New SqlDataAdapter()
        SQLAdapter.SelectCommand = SQLCmd
        DSet = New DataSet()
        SQLAdapter.Fill(DSet)
        'Return P920_LoadEDITable()
    End Function
    ' Handler for OnRowUpdating
    Sub OnRowUpdating(ByVal sender As Object, ByVal e As SqlRowUpdatingEventArgs)
        Console.WriteLine("OnRowUpdating Event")
        If Not e.Status = UpdateStatus.Continue Then
            Console.WriteLine("RowStatus = " & e.Status.ToString())
        End If
    End Sub
 
    ' Handler for OnRowUpdated
    Sub OnRowUpdated(ByVal sender As Object, ByVal e As SqlRowUpdatedEventArgs)
        Console.WriteLine("OnRowUpdated Event")
        Console.WriteLine("Records Affected = " & e.RecordsAffected.ToString())
    End Sub
 
 
 
End Module