Dim MsgBoxRes As String
        If AutorTextBox.FindStringExact(Me.1TextBox.Text) = -1 Then
            MsgBoxRes = MessageBox.Show("Neuen Datensatz erstellen?", _
              "Achtung", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            If MsgBoxRes = Windows.Forms.DialogResult.Yes Then
                My.Forms.1.Show()
                My.Forms.1.Tbl1DataConnector.AddNew()
                My.Forms.1.Tbl1DataConnector.MoveLast()
                My.Forms.1.1TextBox.Text = Me.AutorTextBox.Text
            Else
                1TextBox.Text = ""
            End If
        End If