Try
                        Dim connect As New SqlConnection
                        Dim sqlq As String = "insert into auf_art (auf_nr," & _
                          "art_nr, kdnr, vk) values ((select max(auf_nr) from" & _
                          "auftrag), @art_nr, @kdnr, @vk)"
                        Dim cmd As New SqlCommand(sqlq, connect)
                        connect.ConnectionString = My.Settings.connstring
                        With cmd
                            With .Parameters
                                .AddWithValue("@art_nr", dgv_art.Item(0, _
                                  a).Value)
                                .AddWithValue("@kdnr", kdnr)
                                .AddWithValue("@vk", dgv_art.Item(3, a).Value)
                            End With
                            .Connection = connect
                            connect.Open()
                            .ExecuteNonQuery()
                            connect.Close()
                            connect.Dispose()
                        End With
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try

SetSQL("update auf_art set vk = '" & dgv1.Item(3, 0).Value & "' where art_nr =" & _
  "'" & artnr.Text & "'")

    Sub SetSQL(ByVal SQL As String)
        Dim connect As New SqlConnection
        Dim cmd As New SqlCommand
 
        connect.ConnectionString = My.Settings.connstring
        cmd.Connection = connect
        cmd.CommandText = SQL
        connect.Open()
        cmd.ExecuteNonQuery()
        connect.Close()
 
    End Sub