'Info nachbearbeiten
        rtbInfo.Rtf = rtbInfo.Rtf.Replace("'", """")
 
        GlobaleVariablen.cmdTIS.CommandText = _
         "Insert Into TIC_Info " & _
         "(TI_Name, TI_Quelle, TI_Datum, TI_Wichtigkeit, TI_Text, TI_Memo)" & _
         "values ('" & _
         intIDShare & "', '" & _
         intIDSource & "', '" & _
         dtPicker1.Value & "', '" & _
         intIDImportance & "', '" & _
         txtText.Text & "', '" & _
         rtbInfo.Rtf & "')"
 
        Try
            intCount = GlobaleVariablen.cmdTIS.ExecuteNonQuery
 
            If intCount > 0 Then
                MsgBox("Es wurde ein Datensatz hinzugefügt", _
                  MsgBoxStyle.Information)
            End If
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Information)
            Return
        End Try
 
    End Sub