Sub TolleSub123()
        'irgendwelcher Code
 
        SuperSub456()
 
        'irgendwelcher Code
    End Sub
 
    Sub SuperSub456()
        Dim cmd As New SqlCommand()
        Dim i, z, res As Integer
        Dim s As String
 
        Using Conn As New SqlConnection(modWerte.DB_ConnString)
            cmd.Connection = Conn
            If Conn.State <> ConnectionState.Open Then Conn.Open()
 
            'irgendwelcher Code
 
            cmd.CommandText = "INSERT INTO MeineTabelle .........."
            res = cmd.ExecuteNonQuery()
 
            If Conn.State = ConnectionState.Open Then Conn.Close()
        End Using
    End Sub

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)