method or data member not found

[mana]

hello

i have the following code in a function but when i want to compile it i have the following code will be blue i have error in this line:

.NamedParameters = True


the error message is this :

method or data member not found

my code is as following:

Function Get_Bearbeiter_Detail(ByVal vBearbeiter_Code As String, Optional ByRef vBearbeiter_Name As String, Optional ByRef vReadOnly_Flag As Boolean, Optional ByRef vAnalyser_Flag As Boolean, Optional ByRef vAdmin_Flag As Boolean) As Boolean
On Error GoTo Err
DoCmd.Hourglass True

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command

Dim prm As ADODB.Parameter
Set prm = New ADODB.Parameter

With cmd
.ActiveConnection = CurrentProject.AccessConnection
.CommandText = "qry_AMPPU_UserManagement"
.CommandType = adCmdTable
.NamedParameters = True
Set prm = .CreateParameter("@Bearbeiter_Code?", adVarChar, adParamInput, 10, vBearbeiter_Code)
.Parameters.Append prm



'rst.Open
Set rst = .Execute
End With

If Not rst.EOF Then
With rst
vBearbeiter_Name = !Username
vReadOnly_Flag = !ReadOnly_Flag
vAnalyser_Flag = !Analyser_Flag
vAdmin_Flag = !Admin_Flag
End With
Get_Bearbeiter_Detail = True
Else
With rst
vBearbeiter_Name = "Nicht Autorisiert"
vReadOnly_Flag = False
vAnalyser_Flag = False
vAdmin_Flag = False
End With
Get_Bearbeiter_Detail = False
End If

DoCmd.Hourglass False

rst.Close
Set cmd = Nothing
Set prm = Nothing
Set rst = Nothing
'End If

Exit Function
Err:
DoCmd.Hourglass False
MsgBox "Leider hat diese Funktion einen Fehler ausgelöst - bitte wenden Sie sich and die EDV! - (Get_Bearbeiter_Detail - '" & Err.Description & "')"
End Function

can someone help me please?

 

[MarkK]

You need to reference a newer version of Microsoft ActiveX data objects. The Command.NamedParameters property first appears in version 2.6.