Error using ado.net update

The code for loading the datagridview is:
    Public Sub ExecuteSP(ByVal DataTableName As String, ByVal strSQL As String)
        'Running stored procedures has been timed as being faster than running SQL commands
        'If DataTableName is nothing, then execute a SQL command, no table returned
        'The DataTables are defined globally in modSQL.vb
        'If a thread and a normal call to this function occur at the same time then a connection error will occur
        'doevents until available
        Do Until SQLprocessing = False
            System.Windows.Forms.Application.DoEvents()
        Loop
        SQLprocessing = True
        dt = New DataTable
        Dim command As SqlCommand = New SqlCommand("usp_ExecString", oConnSQL)
        command.Parameters.Add("@sqlStr", strSQL)
        command.CommandType = CommandType.StoredProcedure
        'Dim adapter As SqlDataAdapter = New SqlDataAdapter(command)
        adapter = New SqlDataAdapter(command)
        Try
            Select Case DataTableName
                Case "dtClient"
                    indexC = 0
                    dtClient = New DataTable
                    adapter.Fill(dtClient)
                Case "dtClientSchedule"
                    dtClientSchedule = New DataTable
                    adapter.Fill(dtClientSchedule)
                Case "dtClientPayment"
                    dtClientPayment = New DataTable
                    adapter.Fill(dtClientPayment)
                Case "dtTemp"
                    dtTemp = New DataTable
                    adapter.Fill(dtTemp)
                Case "dtAddress"
                    dtAddress = New DataTable
                    adapter.Fill(dtAddress)
                Case "dtLandLord"
                    dtLandLord = New DataTable
                    adapter.Fill(dtLandLord)
                Case "dtSecurities"
                    dtSecurities = New DataTable
                    adapter.Fill(dtSecurities)
                Case "dtContacts"
                    dtContacts = New DataTable
                    adapter.Fill(dtContacts)
                Case "dtEmployer"
                    dtEmployer = New DataTable
                    adapter.Fill(dtEmployer)
                Case "dtSQL"
                    dtSQL = New DataTable
                    adapter.Fill(dtSQL)
                Case "dtLocalPayments"
                    dtLocalPayments = New DataTable
                    adapter.Fill(dtLocalPayments)
                Case "dtNotices"
                    dtNotices = New DataTable
                    adapter.Fill(dtNotices)
                Case "dtMessages"
                    dtMessages = New DataTable
                    adapter.Fill(dtMessages)
                Case "dtHistory"
                    dtHistory = New DataTable
                    adapter.Fill(dtHistory)
                Case Else
                    Dim command1 As New SqlCommand(strSQL, oConnSQL)
                    Debug.Print(strSQL)
                    Try
                        Dim cmd As New SqlCommand
                        'Dim p1 As New SqlParameter("@UserName", SqlDbType.NVarChar)
                        'Dim p2 As New SqlParameter("@UserPwd", SqlDbType.NVarChar)
                        'p1.Value = strUser
                        'p2.Value = strPwd
                        'cmd.Parameters.Add(p1)
                        'cmd.Parameters.Add(p2)
                        cmd.Connection = oConnSQL 'cnn
                        If oConnSQL.State = ConnectionState.Closed Then
                            oConnSQL.Open()
                        End If
                        cmd.CommandText = strSQL
                        cmd.ExecuteNonQuery()
 
                    Catch ex As SqlException
                        MsgBox(ex.Message)
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                    'Debug.Print(strSQL)
            End Select
        Catch ex As Exception
            Debug.Print(ex.ToString)
            Debug.Print(strSQL)
        End Try
        SQLprocessing = False