Class doesn't support Automation (Error 430)

[irade92]

In my computer I did not get this message. I get this message on other com. where my application is installed. When I clilk on button to save records from an unbound form using ADODB.RECORDSET I get this message : Class doesn't support Automation (Error 430)...Here is my code

Private Sub Ok_Click()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "tblMATICNI", CurrentProject.Connection, _
adOpenDynamic, adLockOptimistic

With rs
.AddNew
!IME = mImeP
!PREZIME = mPrezime
!MAT_BROJ = mMaticen
!OPSTINA_ID = cboOpstina_id
!ZD_LEG = mZdrLeg
!CLEN = mCl
!RO_S = mOsig
!OSNOV_ID = cboOsnov_id
!LEKAR_ID = cboLEKAR_ID
!OSL_ID = cboOsl_ID
.Update
End With

rs.Close
Set rs = Nothing
DoCmd.Close


End Sub

..and VBA debug gets me on this line:
Set rs = New ADODB.Recordset
I open in VBA / Preferences and seems everything is ok..on my com and on the other where my app is installed...
I read help but not sure I understand what is says...
What should I do?
Thanks for your efforts