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)
            Try
                cmd.Connection = Conn
                Conn.Open()
 
                'irgendwelcher Code
 
                cmd.CommandText = "INSERT INTO MeineTabelle .........."
                res = cmd.ExecuteNonQuery()
 
            Catch ex As Exception
                'ggf. Fehler ins Log schreiben
            Finally
                cmd = Nothing
            End Try
        End Using
    End Sub

    Delegate Sub WriteLabelDelegate(ByVal lbl As ToolStripStatusLabel, ByVal _
      Text As String)
    Public Sub SetToolStripStatusLabel_Text(ByVal lbl As ToolStripStatusLabel, _
    ByVal str As String)
        Try
            If Me.InvokeRequired Then
                Me.Invoke(New WriteLabelDelegate(AddressOf _
                  SetToolStripStatusLabel_Text), lbl, str)
            Else
                lbl.Text = str
            End If
        Catch ex As Exception
            'ggf. Fehler ins Log schreiben
        End Try
    End Sub

'Im Deklarationsbereich:
Private MainReferenz As frmMeinForm 'wird in New zugewiesen
 
'im Code
MainReferenz.SetToolStripStatusLabel_Text(MainReferenz.tsslblAutomatNr, "Wert:" & _
  "" & i.ToString)

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