dr = cmd.ExecuteReader()
 
                    Dim oFrm As New frmEditor
 
                    If dr.HasRows Then
 
                        ' --- Daten lesen
                        While dr.Read() = True
 
                            frmEditor._rtf.Text = dr.Item("RTFText").ToString
                            frmEditor.ShowDialog()
                        End While
 
                    End If