Il y a déjà un DataReader ouvert associé à cette Connexion qui doit d'abord être fermés VB.NET

Votre problème, c'est que votre code d'ouvrir un DataReader et ensuite exécuter le SqlCommand lorsque le DataReader lire

Essayer de changer cette ligne:

 dr = comm.ExecuteReader()

à:

 dr = comm.ExecuteReader(CommandBehavior.CloseConnection)

Plus: DataReader CommandBehavior

Ou modifier votre chaîne de connexion pour activer MARS (Multiple Active Result set).
Ce paramètre permettra la récupération de l'avant plusieurs seule, en lecture seule sur la même connexion.

Par exemple :

connectionString=
"Data Source=.\SQLEXPRESS;
AttachDbFilename=|DataDirectory|Northwind.MDF;
Integrated Security=True;
User Instance=True;
MultipleActiveResultSets=True"

Plus: MARS

MODIFIER

Depuis MARS mot-clé n'est pas pris en charge, essayez de changer votre code à ceci:

Public Sub update_qty(ByVal qry1 As String) 
        Dim dr As MySqlDataReader 'SQLiteDataReader 
        Dim comm As MySqlCommand 'SQLiteCommand 


        Try

            comm = New MySqlCommand(qry1, conn)
            dr = comm.ExecuteReader()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Dim myList As New List(Of String)

        Do While dr.Read()
            myList.Add("call cargosys.paymentsAdd('" & var1 & "', " & dr("inNo") & ")")
        Loop

        dr.Close()
End Sub

Public Sub exe_query(myList As List(Of String)) 

        Dim cmd As MySqlCommand 

        For Each query As String In myList
            Try
                cmd = New MySqlCommand(query, conn)
                cmd.ExecuteNonQuery()

            Catch ex As MySqlException
                MessageBox.Show(ex.ToString)      
            End Try
        Next

 End Sub

Au lieu de faire DataReader.Read->SqlCommand.ExecuteNonQuery simultanément, ce code sera lu toutes les données d'abord, puis exécuter SqlCommand.ExecuteNonQuery.