Стокнулся с очень неприятным глюком как выйти не знаю
При компилировании приложения неожиданно появляется сообщение
Данный тип програмирования не используется в в VB и указывает на простенькую строчку - For I = 0 To Ik - 1
После чего аксесс падает при новом запуске попвтка компилировать -падение акцеса
Форма открывается в режиме конструктора. Что это!

Да и еще Другие формы все нормально

Вышел из положения -
Сделол новую форму. Весь код скопировал
Старую -удалил и заработала
Даю код
Option Compare Database
Option Explicit


Dim namezak As String
Dim adrzak As String
Dim PrGk As String
Dim datcomp() As Variant
Dim datobr() As Variant
Dim strDoc As String
Dim strNdoc As String
Dim strDot As String
Dim strMDB, strDocNameNew, strur, res As String
Dim II, jj, kk, j, l, Gr As Integer
Dim Ik As Integer

Private Sub Кнопка158_Click()
Dim rs As Recordset
Dim db As Database
Dim nn As Integer
Dim nzak As Integer
Dim lot As Integer

nn = Forms("frmbtnmain").Controls("Ïð")
Call testRec
strDocPath = pathDoc(nn)
Call datzak
'
lot = fLot(nn)
datapod nn

For I = 0 To (Ik - 1)

idcomp = rskoldoc("Company")
Set rsnamecomp = CurrentDb.OpenRecordset("select id_comp,kr_name from company where id_comp=" & idcomp & " ")

и тддддд

Next