Hola a todos,

Estoy intentando realizar una consulta pasando una serie de parametros. El problema es que me salta una excepción al ejecutar ExecuteReader, dice que no esta declarado el parametro. El codigo que estoy usando de prueba es la siguiente:

    Public Function GetPersonasByNombre(ByVal nombrePersona As String, _
                                        ByVal listaPersonas As List(Of Persona)) As Boolean
        Dim strSql As String
        Dim cadenaConexion As String
        Dim con As OleDbConnection = Nothing
        Dim cmd As OleDbCommand = Nothing
        Dim ok As Boolean = true

        strSql = _
            "SELECT * " & _
            "FROM PERSONAS " & _
            "WHERE (PERSONAS.NOMBRE = @nombrePersona )"

        cadenaConexion = ConfigurationManager.ConnectionStrings.Item(GetNombreConexionPersonas).ConnectionString

        Try
            con = New OleDb.OleDbConnection(cadenaConexion)
            cmd = New OleDb.OleDbCommand
            cmd.CommandText = strSql
            cmd.CommandType = CommandType.Text
            cmd.Connection = con
            cmd.Parameters.Add(New OleDbParameter("@nombrePersona", nombrePersona))
            cmd.Connection.Open()
            cmd.ExecuteReader()
        Catch ex As Exception
            ok = False
        End Try

        Return ok
    End Function

   Excepción: {"Debe declarar la variable  '@nombrePersona'."}


   No encuentro cual es el problema,  agradecería mucho si alguien pudiera ayudarme!! me estoy volviendo loca!!