Не пойму в чем ошибка...

Одна форма получает параметры, формирует recordset и вызывает другую, присваивая ей recordset, но в новой форме ничего не могу редактировать идет сообщение - форма доступна только на чтение... может кто сталкивался с такой проблемой, что посоветуте

код модуля вызова второй формы

Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String

Set cnn = CurrentProject.Connection
strSql = "SELECT * FROM words where words.group = '" & per & "'"
Set rs = New ADODB.Recordset

With rs
.Source = strSql
.ActiveConnection = cnn
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open
End With
'If rs.RecordCount > 0 Then

'End If
DoCmd.Close
Set frm = Nothing

Set frm = New Form_all
frm.SetFocus
frm.Visible = True
Set frm.Recordset = rs
Set rs = Nothing