Visual Basic - Error 40045

Hola alguien que pueda ayudarne, el codigo esta bien pero cuando ejecuto el programa me sale el error 40045 que dice:"Que la operacion no esta permitida en este momento"
a que se debe eso, porque al compilar linea por linea sale bien

Private Sub kardex()
Dim caja, frac, art, inter, uni, usu, ubi As String
Dim number1, number3 As Double
Dim cab2, cab4, cab5, cab6 As rdoResultset
Set cab2 = cn.OpenResultset("select distinct(D.carticulo) as Articulo, D.ninterno as Interno, D.qunidades as Unidades, C.cusuario as Usuario, C.calmacendest as Almacen, C.nsunat from pdtx D, pctx C where D.calmacen=C.calmacen and C.ninterno=D.ninterno and C.nsunat='" & Me.txtaux.Text & "' and D.qunidades='" & Me.txtaux1.Text & "'", 0, 1, rdAsyncEnable)
art = cab2!Articulo
inter = cab2!Interno
uni = cab2!Unidades
usu = cab2!Usuario
ubi = cab2!Almacen
Set cab6 = cn.OpenResultset("select qtranscaja as NumCaja, qtransfrac as NumFrac from tarticxalmacen where calmacen='104'", 0, 1, rdAsyncEnable)
caja = cab6!NumCaja
frac = cab6!NumFrac
Set cab4 = cn.OpenResultset("select count(ninternokardex) as NumKardex from wpkardex", 0, 1, rdAsyncEnable)
number3 = cab4!NumKardex
If number3 = 0 Then
number1 = 1
cn.Execute "insert into wpkardex(calmacen, ninternokardex, ctipotransaccion, ctipodocumento, ninterno, carticulo, scajafraccion, qunidades, qantcaja, qantfraccion, cusuario, fkardex, hkardex, icostoant, icosto, icostopro, cubicacion) values ('104','" & number1 & "','1','06','" & inter & "', '" & art & "', 'T', '" & uni & "', '" & caja & "', '" & frac & "', '" & usu & "', '" & Format(Date, "dd/mm/yy") & "', '" & Format(Time, "hh:MM") & "', '0', '0', '0', '" & ubi & "')"
Else
Set cab5 = cn.OpenResultset("select max(ninternokardex) as MaxKardex from wpkardex", 0, 1, rdAsyncEnable)
number1 = cab5!MaxKardex + 1
cn.Execute "insert into wpkardex(calmacen, ninternokardex, ctipotransaccion, ctipodocumento, ninterno, carticulo, scajafraccion, qunidades, qantcaja, qantfraccion, cusuario, fkardex, hkardex, icostoant, icosto, icostopro, cubicacion) values ('104','" & number1 & "','1','06','" & inter & "', '" & art & "', 'T', '" & uni & "', '" & caja & "', '" & frac & "', '" & usu & "', '" & Format(Date, "dd/mm/yy") & "', '" & Format(Time, "hh:MM") & "', '0', '0', '0', '" & ubi & "')"
End If
Me.msfcontrol.TextMatrix(j + 1, 3) = "Grabo Satisfactoriamente"
Me.msfcontrol.ForeColor = vbBlue
End Sub

Saludos

Le agradeceria su gentil respuesta

el codigo esta bien sino al ejecutar el programa me sale el error 40045 que dice que esta operacion no esta permitida en este momento, quiero a que se debe ese error

hola chavo, falta k nos digas en ke linea del kodigo te salta el error.

cmd procesar()

call kardex()

end sub

me bota el error en la linea de call kardex

es facil solo quitale losparentesis a el call kardex creo que es eso! prueblao asi...

eso tiene q ver con esto: rdAsyncEnable probar otro valor