Public Function Mail_Erstellen(ByVal MailAdresse As String, ByVal Betreff _
      As String, ByVal MailText As String) As Boolean
        Try
            Mail_Erstellen = False
 
            Dim out As New Interop.Outlook.Application
            Dim m As Interop.Outlook.MailItem
            m = CType(out.CreateItem(Interop.Outlook.OlItemType.olMailItem), _
              Interop.Outlook.MailItem)
            m.Subject = Betreff
            m.Body = MailText
            m.Display()
            m.To = MailAdresse
 
            m.Recipients.ResolveAll()
 
            m.Send()
            Mail_Erstellen = True
            Return True
        Catch eex As Exception
 
        End Try
 
    End Function
 
 
 
 
 Sub tabelle(ByVal SC As SqlCommand)
        Me.Enabled = False
        Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor
        adapter = New SqlDataAdapter()
        table = New DataTable
        table.Locale = System.Globalization.CultureInfo.InvariantCulture
        adapter.SelectCommand = SC
        adapter.SelectCommand.CommandTimeout = 9000
        adapter.Fill(table)
        DataGridView1.DataSource = table
        Label1.Visible = False
        Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default
        Me.Enabled = True
        Me.Text = "Concordia   -   Anzahl gefundener Datensätze : " + _
          DataGridView1.RowCount.ToString
 
    End Sub