Během čtení dat došlo k závažné chybě

Příčin výpadku připojení může být mnoho (zatížení serveru, problém se sítí atd.). To, že váš program padá, naznačuje, že kód vaší databáze není chráněn pomocí try tvrzení. Pokud uděláte něco takového:

try
    Using connect1 As New MySqlConnection(ConnectLocalhost.serverString)
        connect1.Open()
        Dim cmd = New MySqlCommand("set net_write_timeout=99999;  _
          set net_read_timeout=99999", connect1) 
        cmd.ExecuteNonQuery()

        Dim BusinessReader = selectSomeQuery("Select *...", connect1)

        Do While BusinessReader.Read 
            'random exception here'
            '...more code'
        Loop
    End Using
Catch ex As Exception
    ' code breaks here on exception - recover from this point '
End Try

Nebudu se pouštět do zdlouhavé disertační práce o zpracování výjimek, ale pokud se podíváte, existuje spousta zdrojů. Jak se s tím vypořádáte, bude záležet na vaší konkrétní situaci – zda ​​zaznamenat výjimku, zaznamenat, jaká byla poslední úspěšná operace, zda se pokusit obnovit z místa, kde jste byli, nebo zda zkusit celou věc zopakovat, upozornit uživatele , atd.

MSDN – Try/Catch/Finally